mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

(pmail-get-summary-labels): If no attribute headers are found, use the

Browse source 
empty string.
This commit is contained in:
Chong Yidong 2008-12-02 14:03:27 +00:00
parent 404271997e
commit 85ab550bbb
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/pmailsum.el
View file

@ -362,7 +362,10 @@ the message being processed."
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)))