[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:52:02 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/12 07:52:02
Modified files:
lisp/mail : rmailkwd.el
Log message:
Simplify previous change.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailkwd.el?cvsroot=emacs&r1=1.37&r2=1.38
Patches:
Index: rmailkwd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailkwd.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- rmailkwd.el 12 Feb 2009 06:55:46 -0000 1.37
+++ rmailkwd.el 12 Feb 2009 07:52:02 -0000 1.38
@@ -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.