Commit f58faced authored by Glenn Morris's avatar Glenn Morris
Browse files

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

header is corrupt.
parent 5b148883
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment