changeset 101416:cd1aa4fbf976

(rmail-summary-by-labels): Correctly handle return value of rmail-get-labels.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 23 Jan 2009 19:20:01 +0000
parents bb26b506bbc3
children c30d7e9e169c
files lisp/mail/rmailsum.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)