[Emacs-diffs] emacs/lisp/mail rmailkwd.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/12 07:52:02

Modified files:
        lisp/mail      : rmailkwd.el 

Log message:
        Simplify previous change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailkwd.el?cvsroot=emacs&r1=1.37&r2=1.38

Patches:
Index: rmailkwd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailkwd.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- rmailkwd.el 12 Feb 2009 06:55:46 -0000      1.37
+++ rmailkwd.el 12 Feb 2009 07:52:02 -0000      1.38
@@ -107,7 +107,9 @@
          (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.