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.