Mercurial > emacs
changeset 20273:f451d46a8c68
(rmail-convert-to-babyl-format): If the
message uses the quoted-printable content-transfer-encoding,
decode it into 8bit.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 18 Nov 1997 21:13:57 +0000 |
| parents | cb48dd203293 |
| children | faa32765fb8f |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 30 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Mon Nov 17 18:55:46 1997 +0000 +++ b/lisp/mail/rmail.el Tue Nov 18 21:13:57 1997 +0000 @@ -1431,6 +1431,14 @@ (and (re-search-forward "\n\n" nil t) (1- (point))))) (case-fold-search t) + (quoted-printable-header-field-end + (save-excursion + ;; Back up to end of previous line, in case the + ;; Content-Transfer-Encoding field comes first. + (forward-char -1) + (re-search-forward + "\ncontent-transfer-encoding\\(\n?[\t ]\\)*:\\(\n?[\t ]\\)*quoted-printable\\(\n?[\t ]\\)*" + header-end t))) (size ;; Get the numeric value from the Content-Length field. (save-excursion @@ -1460,18 +1468,29 @@ (looking-at "From ")))) (goto-char (+ header-end size)) (message "Ignoring invalid Content-Length field") - (sit-for 1 0 t)))) + (sit-for 1 0 t))) + (if (re-search-forward + (concat "^[\^_]?\\(" + rmail-unix-mail-delimiter + "\\|" + rmail-mmdf-delim1 "\\|" + "^BABYL OPTIONS:\\|" + "\^L\n[01],\\)") nil t) + (goto-char (match-beginning 1)) + (goto-char (point-max))) + (setq count (1+ count)) + (if quoted-printable-header-field-end + (save-excursion + (save-restriction + (narrow-to-region header-end (point)) + (require 'gnus-art) + (article-mime-decode-quoted-printable-buffer)) + ;; Change "quoted-printable" to "8bit", + ;; to reflect the decoding we just did. + (goto-char quoted-printable-header-field-end) + (zap-to-char -1 ?:) + (insert ": 8bit")))) - (if (re-search-forward - (concat "^[\^_]?\\(" - rmail-unix-mail-delimiter - "\\|" - rmail-mmdf-delim1 "\\|" - "^BABYL OPTIONS:\\|" - "\^L\n[01],\\)") nil t) - (goto-char (match-beginning 1)) - (goto-char (point-max))) - (setq count (1+ count)) (save-excursion (save-restriction (narrow-to-region start (point))