Commit 80cb4057 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

rmail-get-labels.
parent a8f67b04
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment