Commit 3e8fc1b6 authored by Glenn Morris's avatar Glenn Morris
Browse files

(rmail-set-label): Fix the test for a label being already present. (Bug#2210)

parent 99dc2e08
2009-02-12 Glenn Morris <rgm@gnu.org>
* mail/rmailkwd.el (rmail-set-label): Fix the test for a label being
already present. (Bug#2210)
2009-02-12 Kenichi Handa <handa@m17n.org>
 
* international/characters.el (?.): New character category for
......
......@@ -106,9 +106,8 @@ LABEL may be a symbol or string."
;; If so, set it as an attribute.
(rmail-set-attribute attr-index state msg)
;; Is this keyword already present in msg's keyword list?
(let* ((header (rmail-get-header rmail-keyword-header msg))
(regexp (concat ", " (regexp-quote label) ","))
(present (string-match regexp (concat ", " header ","))))
(let* ((header (rmail-get-keywords msg))
(present (not (null (member label (split-string header ", "))))))
;; If current state is not correct,
(unless (eq present state)
;; either add it or delete it.
......
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