changeset 101972:9eff457d4b49

Simplify previous change; again.
author Glenn Morris <rgm@gnu.org>
date Thu, 12 Feb 2009 07:53:11 +0000
parents e91fed5616f7
children 07e3ec5f279b
files lisp/mail/rmailkwd.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.