diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-02-03 04:09:01 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-02-03 04:09:01 +0000 |
| commit | c49edcd12f8f6f17e17180076b9c697bf9d9f147 (patch) | |
| tree | 675c85a61cb689349619b58afd42e9be8e7ecfbc /lisp/mail/rmailsum.el | |
| parent | bad4f1fd32430616fb531c5f1a2fe99c0a36104e (diff) | |
| download | emacs-c49edcd12f8f6f17e17180076b9c697bf9d9f147.tar.gz | |
(rmail-get-summary-labels): Treat empty labels as null.
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index eb202721353..5c250039c30 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -426,7 +426,9 @@ Returns nil if there are no labels. The current buffer must already be narrowed to the message headers for the message being processed." (let ((labels (mail-fetch-field rmail-keyword-header))) - (if labels (format "{ %s } " labels)))) + (and labels + (not (string-equal labels "")) + (format "{ %s } " labels)))) (defun rmail-create-summary (msgnum deleted unseen lines) "Return the summary line for message MSGNUM. |