[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmailkwd.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmailkwd.el |
Date: |
Thu, 12 Feb 2009 07:53:11 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/12 07:53:11
Modified files:
lisp/mail : rmailkwd.el
Log message:
Simplify previous change; again.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailkwd.el?cvsroot=emacs&r1=1.38&r2=1.39
Patches:
Index: rmailkwd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailkwd.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- rmailkwd.el 12 Feb 2009 07:52:02 -0000 1.38
+++ rmailkwd.el 12 Feb 2009 07:53:11 -0000 1.39
@@ -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.