From c6fc507f35f20b5f244c159bda50d73825a7bd3e Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Tue, 17 Jan 2006 10:03:12 +0000 Subject: [PATCH] (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. --- lisp/mail/rmailsum.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index c786b073405..d95a4201b7f 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -101,7 +101,7 @@ LABELS should be a string containing the desired labels, separated by commas." (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 @@ message and highlight the buffer." ;; 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. -- 2.39.2