# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232737351 0
# Node ID c1fb3b6fe79a29fc3e47207fcc7e29738781d9be
# Parent  d59cc7925a91091e696f0a15bb0ad532c33177af
(rmail-next-labeled-message): Correctly handle return value of
rmail-get-labels.

diff -r d59cc7925a91 -r c1fb3b6fe79a lisp/mail/rmailkwd.el
--- a/lisp/mail/rmailkwd.el	Fri Jan 23 19:02:24 2009 +0000
+++ b/lisp/mail/rmailkwd.el	Fri Jan 23 19:02:31 2009 +0000
@@ -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))