From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 23 Jan 2009 19:20:01 +0000 (+0000)
Subject: (rmail-summary-by-labels): Correctly handle return value of
X-Git-Tag: emacs-pretest-23.0.90~252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfc032477c0fbb2cae9cfda13df4a28bca5476d7;p=emacs.git

(rmail-summary-by-labels): Correctly handle return value of
rmail-get-labels.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index f7bd2df41b2..79bb8bc2ef3 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -90,7 +90,9 @@ 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) "\\),")))
+		     (concat " \\("
+			     (mail-comma-list-regexp labels)
+			     "\\)\\(,\\|\\'\\)")))
 
 ;;;###autoload
 (defun rmail-summary-by-recipients (recipients &optional primary-only)