[Emacs-diffs] emacs/lisp/mail rmailsum.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/23 19:20:01

Modified files:
        lisp/mail      : rmailsum.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.155&r2=1.156

Patches:
Index: rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.155
retrieving revision 1.156
diff -u -b -r1.155 -r1.156
--- rmailsum.el 23 Jan 2009 04:06:29 -0000      1.155
+++ rmailsum.el 23 Jan 2009 19:20:01 -0000      1.156
@@ -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)