(rmail-summary-by-labels): Correctly handle return value of

rmail-get-labels.
This commit is contained in:
Chong Yidong 2009-01-23 19:20:01 +00:00
parent 1a1115b2c1
commit bfc032477c

View file

@ -90,7 +90,9 @@ LABELS should be a string containing the desired labels, separated by commas."
(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)