From 85ab550bbbbda5e16809b00d533d45b2facca2a9 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 2 Dec 2008 14:03:27 +0000 Subject: [PATCH] (pmail-get-summary-labels): If no attribute headers are found, use the empty string. --- lisp/mail/pmailsum.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/mail/pmailsum.el b/lisp/mail/pmailsum.el index 0fed20e2e5c..ce72701390e 100644 --- a/lisp/mail/pmailsum.el +++ b/lisp/mail/pmailsum.el @@ -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))) -- 2.39.2