Mercurial > emacs
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.