Mercurial > emacs
comparison lisp/gnus/mm-encode.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 52d99cc2e9e3 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 1 ;;; mm-encode.el --- functions for encoding MIME things | 1 ;;; mm-encode.el --- functions for encoding MIME things |
| 2 ;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc. | 2 ;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc. |
| 3 | 3 |
| 4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 5 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> | 5 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> |
| 6 ;; This file is part of GNU Emacs. | 6 ;; This file is part of GNU Emacs. |
| 142 (let ((rules mm-content-transfer-encoding-defaults)) | 142 (let ((rules mm-content-transfer-encoding-defaults)) |
| 143 (catch 'found | 143 (catch 'found |
| 144 (while rules | 144 (while rules |
| 145 (when (string-match (caar rules) type) | 145 (when (string-match (caar rules) type) |
| 146 (throw 'found | 146 (throw 'found |
| 147 (let ((encoding | 147 (let ((encoding |
| 148 (if (eq (cadr (car rules)) 'qp-or-base64) | 148 (if (eq (cadr (car rules)) 'qp-or-base64) |
| 149 (mm-qp-or-base64) | 149 (mm-qp-or-base64) |
| 150 (cadr (car rules))))) | 150 (cadr (car rules))))) |
| 151 (if mm-use-ultra-safe-encoding | 151 (if mm-use-ultra-safe-encoding |
| 152 (mm-safer-encoding encoding) | 152 (mm-safer-encoding encoding) |