mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

* mail/rmail.el (rmail-get-attr-names):

Browse Source 
Accept an attribute header that is too short.
This commit is contained in:
Richard M. Stallman 2009-08-13 01:04:37 +00:00
parent 1fc01b083c
commit 5c9509238d
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

4
lisp/mail/rmail.el
View File

@ -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