From 5c9509238d351efce4bb9793cad4678d72656b68 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 Aug 2009 01:04:37 +0000 Subject: [PATCH] * mail/rmail.el (rmail-get-attr-names): Accept an attribute header that is too short. --- lisp/ChangeLog | 3 +++ lisp/mail/rmail.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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 + * 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 -- 2.39.2