Mercurial > emacs
changeset 102063:4576476829ed
(rmail-get-attr-names): Give a warning rather than an error if the
header is corrupt.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 17 Feb 2009 02:37:40 +0000 |
| parents | 8ddbc5972ea9 |
| children | f87990d77917 |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 20 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Feb 17 02:36:51 2009 +0000 +++ b/lisp/ChangeLog Tue Feb 17 02:37:40 2009 +0000 @@ -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
--- a/lisp/mail/rmail.el Tue Feb 17 02:36:51 2009 +0000 +++ b/lisp/mail/rmail.el Tue Feb 17 02:37:40 2009 +0000 @@ -2054,16 +2054,16 @@ (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)