# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1234425191 0
# Node ID 9eff457d4b49fdc4d298aaa4f252093c50d7716a
# Parent  e91fed5616f78e20280eccc994c224beba877852
Simplify previous change; again.

diff -r e91fed5616f7 -r 9eff457d4b49 lisp/mail/rmailkwd.el
--- a/lisp/mail/rmailkwd.el	Thu Feb 12 07:52:02 2009 +0000
+++ b/lisp/mail/rmailkwd.el	Thu Feb 12 07:53:11 2009 +0000
@@ -108,8 +108,8 @@
 	;; 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.