diff options
| author | Richard M. Stallman <rms@gnu.org> | 2009-08-13 01:04:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2009-08-13 01:04:37 +0000 |
| commit | 5c9509238d351efce4bb9793cad4678d72656b68 (patch) | |
| tree | bd614d7ea6a4454d4f909ad0145245335ec5a776 /lisp/mail | |
| parent | 1fc01b083c6e8be87a06e24afcba9a4dc2b6ca09 (diff) | |
| download | emacs-5c9509238d351efce4bb9793cad4678d72656b68.tar.gz emacs-5c9509238d351efce4bb9793cad4678d72656b68.tar.bz2 emacs-5c9509238d351efce4bb9793cad4678d72656b68.zip | |
* mail/rmail.el (rmail-get-attr-names):
Accept an attribute header that is too short.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |