Simplify previous change; again.

2009-02-12 07:53:11 +00:00
parent 655a218ace
commit 4b84883a4a
1 changed files with 2 additions and 2 deletions
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -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.