# HG changeset patch
# User Alex Schroeder <alex@gnu.org>
# Date 1137492192 0
# Node ID 41d86c3e40fe3dd5f5afa792d230f959a8ec9fa2
# Parent  d33a3b2bba767be5e94aab5ac44f3bee40cf46e5
(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 -r d33a3b2bba76 -r 41d86c3e40fe lisp/mail/rmailsum.el
--- 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.