[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmailsum.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmailsum.el |
Date: |
Tue, 02 Dec 2008 14:03:27 +0000 |
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)))
- [Emacs-diffs] emacs/lisp/mail pmailsum.el,
Chong Yidong <=
- [Emacs-diffs] emacs/lisp/mail pmailsum.el, Chong Yidong, 2008/12/02
- [Emacs-diffs] emacs/lisp/mail pmailsum.el, Chong Yidong, 2008/12/02
- [Emacs-diffs] emacs/lisp/mail pmailsum.el, Chong Yidong, 2008/12/09
- [Emacs-diffs] emacs/lisp/mail pmailsum.el, Chong Yidong, 2008/12/12
- [Emacs-diffs] emacs/lisp/mail pmailsum.el, Richard M. Stallman, 2008/12/22