1 |
;;; mm-encode.el --- functions for encoding MIME things |
;;; mm-encode.el --- functions for encoding MIME things |
2 |
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc. |
3 |
|
|
4 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
5 |
;; MORIOKA Tomohiko <morioka@jaist.ac.jp> |
;; MORIOKA Tomohiko <morioka@jaist.ac.jp> |
79 |
"Return a safer but similar encoding." |
"Return a safer but similar encoding." |
80 |
(cond |
(cond |
81 |
((memq encoding '(7bit 8bit quoted-printable)) 'quoted-printable) |
((memq encoding '(7bit 8bit quoted-printable)) 'quoted-printable) |
82 |
;; The remaing encodings are binary and base64 (and perhaps some |
;; The remaining encodings are binary and base64 (and perhaps some |
83 |
;; non-standard ones), which are both turned into base64. |
;; non-standard ones), which are both turned into base64. |
84 |
(t 'base64))) |
(t 'base64))) |
85 |
|
|
144 |
(while rules |
(while rules |
145 |
(when (string-match (caar rules) type) |
(when (string-match (caar rules) type) |
146 |
(throw 'found |
(throw 'found |
147 |
(let ((encoding |
(let ((encoding |
148 |
(if (eq (cadr (car rules)) 'qp-or-base64) |
(if (eq (cadr (car rules)) 'qp-or-base64) |
149 |
(mm-qp-or-base64) |
(mm-qp-or-base64) |
150 |
(cadr (car rules))))) |
(cadr (car rules))))) |