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

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/08/13 01:04:40

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

Log message:
        * mail/rmail.el (rmail-get-attr-names):
        Accept an attribute header that is too short.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15925&r2=1.15926
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.540&r2=1.541

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15925
retrieving revision 1.15926
diff -u -b -r1.15925 -r1.15926
--- ChangeLog   13 Aug 2009 00:58:54 -0000      1.15925
+++ ChangeLog   13 Aug 2009 01:04:37 -0000      1.15926
@@ -1,5 +1,8 @@
 2009-08-13  Richard Stallman  <address@hidden>
 
+       * mail/rmail.el (rmail-get-attr-names):
+       Accept an attribute header that is too short.
+
        * progmodes/compile.el (compilation-goto-locus):
        Use next-error-move-function.
 

Index: mail/rmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.540
retrieving revision 1.541
diff -u -b -r1.540 -r1.541
--- mail/rmail.el       8 Aug 2009 10:26:44 -0000       1.540
+++ mail/rmail.el       13 Aug 2009 01:04:39 -0000      1.541
@@ -2157,9 +2157,9 @@
        (nmax (length rmail-attr-array))
        result temp)
     (when value
-      (if (/= (length value) nmax)
+      (if (> (length value) nmax)
           (message "Warning: corrupt attribute header in message")
-        (dotimes (index nmax)
+        (dotimes (index (length value))
           (setq temp (and (not (= ?- (aref value index)))
                           (nth 1 (aref rmail-attr-array index)))
                 result