From: Alex Schroeder <alex@gnu.org>
Date: Tue, 17 Jan 2006 10:03:12 +0000 (+0000)
Subject: (rmail-summary-by-labels): No longer concatenate
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6fc507f35f20b5f244c159bda50d73825a7bd3e;p=emacs.git

(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.
---

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.