aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris2009-02-03 04:09:01 +0000
committerGlenn Morris2009-02-03 04:09:01 +0000
commitc49edcd12f8f6f17e17180076b9c697bf9d9f147 (patch)
tree675c85a61cb689349619b58afd42e9be8e7ecfbc /lisp
parentbad4f1fd32430616fb531c5f1a2fe99c0a36104e (diff)
downloademacs-c49edcd12f8f6f17e17180076b9c697bf9d9f147.tar.gz
emacs-c49edcd12f8f6f17e17180076b9c697bf9d9f147.zip
(rmail-get-summary-labels): Treat empty labels as null.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog23
-rw-r--r--lisp/mail/rmailsum.el4
2 files changed, 26 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb21b001dbb..81c7b016383 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,26 @@
12009-02-03 Glenn Morris <rgm@gnu.org>
2
3 * mail/rmail.el (rmail-convert-babyl-to-mbox): Disable undo while
4 inserting the converted mailbox.
5 (rmail-get-new-mail): Restore the loop over inboxes when two or more
6 have the same basename. (Bug#2164)
7 Set the return value according to whether any mail was found,
8 not just in the last inbox. Only show a message and run the hook after
9 checking all inboxes.
10 (rmail-get-new-mail-1): Move message display and running the hook to
11 rmail-get-new-mail.
12
13 * mail/rmailkwd.el (rmail-label-obarray): Initialize using
14 rmail-attr-array.
15 (rmail-make-label, rmail-read-label): Give it a doc string.
16 (rmail-add-label, rmail-kill-label): Change argument name to match the
17 doc. Doc fix.
18 (rmail-set-label): Doc fix. Also update summary in attr case.
19 Accept labels as a string or a symbol. (Bug#2165)
20
21 * mail/rmailsum.el (rmail-get-summary-labels): Treat empty labels as
22 null.
23
12009-02-02 Stefan Monnier <monnier@iro.umontreal.ca> 242009-02-02 Stefan Monnier <monnier@iro.umontreal.ca>
2 25
3 * progmodes/vhdl-mode.el (vhdl-prepare-search-1) 26 * progmodes/vhdl-mode.el (vhdl-prepare-search-1)
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
426already be narrowed to the message headers for the message being 426already be narrowed to the message headers for the message being
427processed." 427processed."
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.