* mail/rmail.el (rmail-get-attr-names):

Accept an attribute header that is too short.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4268c45caccbb1673045339eae8cd8c7c7fc466..ad18578e4c4d14e41c889e610b258cbf8450febb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-13  Richard Stallman  <rms@gnu.org>
 
+       * 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.
 

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index d50dace2b319982f312c78f69dc347a3832e852a..2fd99fbd282958c1bd357a0b3c4de8f831c5a9e7 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2157,9 +2157,9 @@ If MSG is nil, use the current message."
        (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