Commit 44baa8ce authored by Glenn Morris's avatar Glenn Morris
Browse files

(rmail-set-attribute): Allow ATTR to be a string.

parent 7dbed484
......@@ -25,6 +25,7 @@
(rmail-get-attr-names): Check for missing or corrupt attribute headers.
(rmail-auto-file): Set the filed attribute, rather than explicitly not
doing so. (Bug#2231)
(rmail-set-attribute): Allow ATTR to be a string.
 
2009-02-09 Ulf Jasper <ulf.jasper@web.de>
 
......
......@@ -2148,8 +2148,18 @@ significant attribute change was made."
"Turn an attribute of a message on or off according to STATE.
STATE is either nil or the character (numeric) value associated
with the state (nil represents off and non-nil represents on).
ATTR is the index of the attribute. MSGNUM is message number to
ATTR is either the index number of the attribute, or a string,
both from `rmail-attr-array'. MSGNUM is message number to
change; nil means current message."
(let ((n 0)
(nmax (length rmail-attr-array)))
(while (and (stringp attr)
(< n nmax))
(if (string-equal attr (cadr (aref rmail-attr-array n)))
(setq attr n))
(setq n (1+ n))))
(if (stringp attr)
(error "Unknown attribute `%s'" attr))
(with-current-buffer rmail-buffer
(or msgnum (setq msgnum rmail-current-message))
(when (> msgnum 0)
......
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