(rmail-mime-handle): Doc fix.

(rmail-mime-show): Downcase the encoding.  (Bug#5070)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 200c238faa6b042a2be53ed879596b1faf5f8e8d..ff79d3b3469ac50c2ed549e04783656a18be7437 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-01  Glenn Morris  <rgm@gnu.org>
+
+       * mail/rmailmm.el (rmail-mime-handle): Doc fix.
+       (rmail-mime-show): Downcase the encoding.  (Bug#5070)
+
 2009-12-01  Dan Nicolaescu  <dann@ics.uci.edu>
 
        Make vc-print-log buttons work.

diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index 41704cf5187393868b6e8adc386380d1c0a2f8f1..1d7ef5eb4f32a36e723f97bdc178788bee22c41e 100644 (file)
--- 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)