From 0c9ff2c5167aac3358fe735a68e3472acbcf6e57 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 1 Dec 2009 03:13:03 +0000 Subject: [PATCH] (rmail-mime-handle): Doc fix. (rmail-mime-show): Downcase the encoding. (Bug#5070) --- lisp/ChangeLog | 5 +++++ lisp/mail/rmailmm.el | 21 +++++++++++++-------- 2 files changed, 18 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 200c238faa6..ff79d3b3469 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-12-01 Glenn Morris + + * mail/rmailmm.el (rmail-mime-handle): Doc fix. + (rmail-mime-show): Downcase the encoding. (Bug#5070) + 2009-12-01 Dan Nicolaescu Make vc-print-log buttons work. diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 41704cf5187..1d7ef5eb4f3 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el @@ -329,8 +329,9 @@ The current buffer should be narrowed to the respective body, and point should be at the beginning of the body. CONTENT-TYPE, CONTENT-DISPOSITION, and CONTENT-TRANSFER-ENCODING -are the values of the respective parsed headers. The parsed -headers for CONTENT-TYPE and CONTENT-DISPOSITION have the form +are the values of the respective parsed headers. The latter should +be downcased. The parsed headers for CONTENT-TYPE and CONTENT-DISPOSITION +have the form \(VALUE . ALIST) @@ -408,12 +409,16 @@ modified." (mail-fetch-field "Content-Transfer-Encoding") content-disposition (mail-fetch-field "Content-Disposition"))))) - (if content-type - (setq content-type (mail-header-parse-content-type - content-type)) - ;; FIXME: Default "message/rfc822" in a "multipart/digest" - ;; according to RFC 2046. - (setq content-type '("text/plain"))) + ;; Per RFC 2045, C-T-E is case insensitive (bug#5070), but the others + ;; are not completely so. Hopefully mail-header-parse-* DTRT. + (if content-transfer-encoding + (setq content-transfer-encoding (downcase content-transfer-encoding))) + (setq content-type + (if content-type + (mail-header-parse-content-type content-type) + ;; FIXME: Default "message/rfc822" in a "multipart/digest" + ;; according to RFC 2046. + '("text/plain"))) (setq content-disposition (if content-disposition (mail-header-parse-content-disposition content-disposition) -- 2.39.5