procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-get-attr-names): Give a warning rather than an error if the

Browse source 
header is corrupt.
This commit is contained in:
Glenn Morris 2009-02-17 02:37:40 +00:00
parent 5b148883d2
commit f58faced4e
2 changed files with 20 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
2009-02-17 Glenn Morris <rgm@gnu.org>
* mail/rmailout.el (rmail-fields-not-to-output): Doc fix.
(rmail-delete-unwanted-fields): Ignore case. Use line-beg-pos.
(rmail-output, rmail-output-as-seen): Change the "from-gnus" argument to
"not-rmail", and make it work. Simplify.
* mail/rmail.el (rmail-get-attr-names): Give a warning rather than an
error if the header is corrupt.
2009-02-16 Ulf Jasper <ulf.jasper@web.de>
* net/newst-treeview.el (newsticker--treeview-load): Offer

20
lisp/mail/rmail.el
View file

@ -2054,16 +2054,16 @@ If MSG is nil, use the current message."
(nmax (length rmail-attr-array))
result temp)
(when value
(unless (= (length value) nmax)
(error "Corrupt attribute header in message"))
(dotimes (index nmax)
(setq temp (and (not (= ?- (aref value index)))
(nth 1 (aref rmail-attr-array index)))
result
(cond
((and temp result) (format "%s, %s" result temp))
(temp temp)
(t result))))
(if (/= (length value) nmax)
(message "Warning: corrupt attribute header in message")
(dotimes (index nmax)
(setq temp (and (not (= ?- (aref value index)))
(nth 1 (aref rmail-attr-array index)))
result
(cond
((and temp result) (format "%s, %s" result temp))
(temp temp)
(t result)))))
result)))
(defun rmail-get-keywords (&optional msg)