Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 04:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Simplify previous change.

Browse source
This commit is contained in:
Glenn Morris 2009-02-12 07:52:02 +00:00
parent 3e8fc1b6f6
commit 655a218ace
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/rmailkwd.el
View file

@ -107,7 +107,9 @@ LABEL may be a symbol or string."
(rmail-set-attribute attr-index state msg)
;; Is this keyword already present in msg's keyword list?
(let* ((header (rmail-get-keywords msg))
(present (not (null (member label (split-string header ", "))))))
(regexp (concat ", " (regexp-quote label) ","))
(present (not (null (string-match-p
regexp (concat ", " header ","))))))
;; If current state is not correct,
(unless (eq present state)
;; either add it or delete it.