# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232738401 0
# Node ID cd1aa4fbf976ec47e1fafdf55126263f8eadef65
# Parent  bb26b506bbc3e2ad625cfbe2dd63ac12287b706a
(rmail-summary-by-labels): Correctly handle return value of
rmail-get-labels.

diff -r bb26b506bbc3 -r cd1aa4fbf976 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Fri Jan 23 19:19:49 2009 +0000
+++ b/lisp/mail/rmailsum.el	Fri Jan 23 19:20:01 2009 +0000
@@ -90,7 +90,9 @@
   (rmail-new-summary (concat "labels " labels)
 		     (list 'rmail-summary-by-labels labels)
 		     'rmail-message-labels-p
-		     (concat ", \\(" (mail-comma-list-regexp labels) "\\),")))
+		     (concat " \\("
+			     (mail-comma-list-regexp labels)
+			     "\\)\\(,\\|\\'\\)")))
 
 ;;;###autoload
 (defun rmail-summary-by-recipients (recipients &optional primary-only)