Mercurial > emacs
changeset 104248:0655506844f6
* mail/rmail.el (rmail-get-attr-names):
Accept an attribute header that is too short.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Aug 2009 01:04:37 +0000 |
| parents | 9caaade61f03 |
| children | 592d4dbcbe86 |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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