[Emacs-diffs] emacs/lisp ChangeLog mail/rmailmm.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/12/01 03:13:07

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmailmm.el 

Log message:
        (rmail-mime-handle): Doc fix.
        (rmail-mime-show): Downcase the encoding.  (Bug#5070)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16778&r2=1.16779
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailmm.el?cvsroot=emacs&r1=1.16&r2=1.17

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16778
retrieving revision 1.16779
diff -u -b -r1.16778 -r1.16779
--- ChangeLog   1 Dec 2009 00:35:43 -0000       1.16778
+++ ChangeLog   1 Dec 2009 03:13:03 -0000       1.16779
@@ -1,3 +1,8 @@
+2009-12-01  Glenn Morris  <address@hidden>
+
+       * mail/rmailmm.el (rmail-mime-handle): Doc fix.
+       (rmail-mime-show): Downcase the encoding.  (Bug#5070)
+
 2009-12-01  Dan Nicolaescu  <address@hidden>
 
        Make vc-print-log buttons work.

Index: mail/rmailmm.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailmm.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- mail/rmailmm.el     21 Nov 2009 02:36:58 -0000      1.16
+++ mail/rmailmm.el     1 Dec 2009 03:13:06 -0000       1.17
@@ -329,8 +329,9 @@
 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 @@
                (mail-fetch-field "Content-Transfer-Encoding")
                content-disposition
                (mail-fetch-field "Content-Disposition")))))
+    ;; 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
-       (setq content-type (mail-header-parse-content-type
-                           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")))
+           '("text/plain")))
     (setq content-disposition
          (if content-disposition
              (mail-header-parse-content-disposition content-disposition)