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

rmail-get-labels.

1 files changed, 3 insertions, 1 deletions

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)