Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 101416:cd1aa4fbf976
(rmail-summary-by-labels): Correctly handle return value of
rmail-get-labels.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 23 Jan 2009 19:20:01 +0000 |
| parents | 69b1ad070444 |
| children | 4f4419bca239 |
comparison
equal
deleted
inserted
replaced
| 101415:bb26b506bbc3 | 101416:cd1aa4fbf976 |
|---|---|
| 88 (error "No label specified")))) | 88 (error "No label specified")))) |
| 89 (setq rmail-last-multi-labels labels) | 89 (setq rmail-last-multi-labels labels) |
| 90 (rmail-new-summary (concat "labels " labels) | 90 (rmail-new-summary (concat "labels " labels) |
| 91 (list 'rmail-summary-by-labels labels) | 91 (list 'rmail-summary-by-labels labels) |
| 92 'rmail-message-labels-p | 92 'rmail-message-labels-p |
| 93 (concat ", \\(" (mail-comma-list-regexp labels) "\\),"))) | 93 (concat " \\(" |
| 94 (mail-comma-list-regexp labels) | |
| 95 "\\)\\(,\\|\\'\\)"))) | |
| 94 | 96 |
| 95 ;;;###autoload | 97 ;;;###autoload |
| 96 (defun rmail-summary-by-recipients (recipients &optional primary-only) | 98 (defun rmail-summary-by-recipients (recipients &optional primary-only) |
| 97 "Display a summary of all messages with the given RECIPIENTS. | 99 "Display a summary of all messages with the given RECIPIENTS. |
| 98 Normally checks the To, From and Cc fields of headers; | 100 Normally checks the To, From and Cc fields of headers; |