Commit 4b84883a authored by Glenn Morris's avatar Glenn Morris
Browse files

Simplify previous change; again.

parent 655a218a
......@@ -108,8 +108,8 @@ LABEL may be a symbol or string."
;; Is this keyword already present in msg's keyword list?
(let* ((header (rmail-get-keywords msg))
(regexp (concat ", " (regexp-quote label) ","))
(present (not (null (string-match-p
regexp (concat ", " header ","))))))
(present (not (null
(string-match regexp (concat ", " 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