From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 23 Jan 2009 19:02:31 +0000 (+0000)
Subject: (rmail-next-labeled-message): Correctly handle return value of
X-Git-Tag: emacs-pretest-23.0.90~256
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80cb4057f8c3f60e781ecbb9b1f8a66614e02dca;p=emacs.git

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

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 0cf8f1b3849..165b1c96a7d 100644
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -142,9 +142,9 @@ With prefix argument N moves forward N messages with these labels."
   (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))