Mercurial > emacs
changeset 88189:41d86c3e40fe
(rmail-summary-by-labels): No longer concatenate
regexp with commas because of recent change to
rmail-message-labels-p.
(rmail-summary-rmail-update): Replace rmail-message-labels-p test
with simple rmail-desc-get-keywords.
| author | Alex Schroeder <alex@gnu.org> |
|---|---|
| date | Tue, 17 Jan 2006 10:03:12 +0000 |
| parents | d33a3b2bba76 |
| children | e40931b9db5d |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Tue Jan 17 09:57:46 2006 +0000 +++ b/lisp/mail/rmailsum.el Tue Jan 17 10:03:12 2006 +0000 @@ -101,7 +101,7 @@ (rmail-new-summary (concat "labels " labels) (list 'rmail-summary-by-labels labels) 'rmail-message-labels-p - (concat ", \\(" (mail-comma-list-regexp labels) "\\),"))) + (mail-comma-list-regexp labels))) ;;;###autoload (defun rmail-summary-by-recipients (recipients &optional primary-only) @@ -803,7 +803,7 @@ ;; Arrange to do that later, for the new current message, ;; if it still has `unseen'. (setq rmail-summary-put-back-unseen - (rmail-message-labels-p msg-num ", ?\\(unseen\\),"))) + (member "unseen" (rmail-desc-get-keywords msg-num)))) (setq rmail-summary-put-back-unseen nil)) ;; Go to the desired message.