From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Aug 2009 01:04:37 +0000 (+0000)
Subject: * mail/rmail.el (rmail-get-attr-names):
X-Git-Tag: emacs-pretest-23.1.90~1877
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c9509238d351efce4bb9793cad4678d72656b68;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4268c45cac..ad18578e4c4 100644
--- 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 d50dace2b31..2fd99fbd282 100644
--- 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