# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1250125477 0
# Node ID 0655506844f6b14104b61a917f901dd3e52671a0
# Parent  9caaade61f030930463962a011c9cd29df23e6bf
* mail/rmail.el (rmail-get-attr-names):
Accept an attribute header that is too short.

diff -r 9caaade61f03 -r 0655506844f6 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Aug 13 00:58:54 2009 +0000
+++ b/lisp/ChangeLog	Thu Aug 13 01:04:37 2009 +0000
@@ -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 -r 9caaade61f03 -r 0655506844f6 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Aug 13 00:58:54 2009 +0000
+++ b/lisp/mail/rmail.el	Thu Aug 13 01:04:37 2009 +0000
@@ -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