diff options
| author | Glenn Morris | 2009-02-03 04:09:01 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-02-03 04:09:01 +0000 |
| commit | c49edcd12f8f6f17e17180076b9c697bf9d9f147 (patch) | |
| tree | 675c85a61cb689349619b58afd42e9be8e7ecfbc /lisp/mail | |
| parent | bad4f1fd32430616fb531c5f1a2fe99c0a36104e (diff) | |
| download | emacs-c49edcd12f8f6f17e17180076b9c697bf9d9f147.tar.gz emacs-c49edcd12f8f6f17e17180076b9c697bf9d9f147.zip | |
(rmail-get-summary-labels): Treat empty labels as null.
Diffstat (limited to 'lisp/mail')
| -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 | |||
| 426 | already be narrowed to the message headers for the message being | 426 | already be narrowed to the message headers for the message being |
| 427 | processed." | 427 | processed." |
| 428 | (let ((labels (mail-fetch-field rmail-keyword-header))) | 428 | (let ((labels (mail-fetch-field rmail-keyword-header))) |
| 429 | (if labels (format "{ %s } " labels)))) | 429 | (and labels |
| 430 | (not (string-equal labels "")) | ||
| 431 | (format "{ %s } " labels)))) | ||
| 430 | 432 | ||
| 431 | (defun rmail-create-summary (msgnum deleted unseen lines) | 433 | (defun rmail-create-summary (msgnum deleted unseen lines) |
| 432 | "Return the summary line for message MSGNUM. | 434 | "Return the summary line for message MSGNUM. |