Mercurial > emacs
changeset 100120:47671319c860
(pmail-get-summary-labels): If no attribute headers are found, use the
empty string.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 02 Dec 2008 14:03:27 +0000 |
| parents | bc5e659c237c |
| children | 821fb85ac9b1 |
| files | lisp/mail/pmailsum.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/pmailsum.el Tue Dec 02 14:03:19 2008 +0000 +++ b/lisp/mail/pmailsum.el Tue Dec 02 14:03:27 2008 +0000 @@ -362,7 +362,10 @@ char) ;; Strip off the read/unread and the deleted attribute which are ;; handled separately. - (setq status (concat (substring status 0 1) (substring status 2 6))) + (setq status + (if status + (concat (substring status 0 1) (substring status 2 6)) + "")) (while (< index (length status)) (unless (string= "-" (setq char (substring status index (1+ index)))) (setq result (concat result char)))