# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1234425122 0
# Node ID e91fed5616f78e20280eccc994c224beba877852
# Parent  5edae205a1ff9d4819eaff393afd828e45ad66e9
Simplify previous change.

diff -r 5edae205a1ff -r e91fed5616f7 lisp/mail/rmailkwd.el
--- a/lisp/mail/rmailkwd.el	Thu Feb 12 06:55:43 2009 +0000
+++ b/lisp/mail/rmailkwd.el	Thu Feb 12 07:52:02 2009 +0000
@@ -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.