Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 101767:4958df99b14c
(rmail-get-summary-labels): Treat empty labels as null.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 03 Feb 2009 04:07:55 +0000 |
parents | ba9c16ff3497 |
children | 2790fb0a9245 |
comparison
equal
deleted
inserted
replaced
101766:4c8d51496578 | 101767:4958df99b14c |
---|---|
424 "Return a string wrapped in curly braces with the current message labels. | 424 "Return a string wrapped in curly braces with the current message labels. |
425 Returns nil if there are no labels. The current buffer must | 425 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. |
433 The current buffer should already be narrowed to the header for that message. | 435 The current buffer should already be narrowed to the header for that message. |
434 It could be either buffer, so don't access Rmail local variables. | 436 It could be either buffer, so don't access Rmail local variables. |