1 |
;;; mm-encode.el --- functions for encoding MIME things |
;;; mm-encode.el --- functions for encoding MIME things |
2 |
;; Copyright (C) 1998, 1999, 2000, 2002 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> |
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))))) |