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

[Chong Yidong]

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

Modified files:
        lisp/mail      : rmailkwd.el 

Log message:
        (rmail-next-labeled-message): Correctly handle return value of
        rmail-get-labels.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailkwd.el?cvsroot=emacs&r1=1.29&r2=1.30

Patches:
Index: rmailkwd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailkwd.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- rmailkwd.el 23 Jan 2009 04:06:29 -0000      1.29
+++ rmailkwd.el 23 Jan 2009 19:02:31 -0000      1.30
@@ -142,9 +142,9 @@
   (rmail-maybe-set-message-counters)
   (let ((lastwin rmail-current-message)
        (current rmail-current-message)
-       (regexp (concat ", ?\\("
+       (regexp (concat " ?\\("
                        (mail-comma-list-regexp labels)
-                       "\\),")))
+                       "\\)")))
     (while (and (> n 0) (< current rmail-total-messages))
       (setq current (1+ current))
       (if (string-match regexp (rmail-get-labels current))