[Emacs-diffs] emacs/lisp/mail pmailsum.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/12/02 14:03:27

Modified files:
        lisp/mail      : pmailsum.el 

Log message:
        (pmail-get-summary-labels): If no attribute headers are found, use the
        empty string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailsum.el?cvsroot=emacs&r1=1.7&r2=1.8

Patches:
Index: pmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmailsum.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- pmailsum.el 5 Oct 2008 14:08:21 -0000       1.7
+++ pmailsum.el 2 Dec 2008 14:03:27 -0000       1.8
@@ -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)))