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 | |
| parent | bad4f1fd32430616fb531c5f1a2fe99c0a36104e (diff) | |
| download | emacs-c49edcd12f8f6f17e17180076b9c697bf9d9f147.tar.gz emacs-c49edcd12f8f6f17e17180076b9c697bf9d9f147.zip | |
(rmail-get-summary-labels): Treat empty labels as null.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 23 | ||||
| -rw-r--r-- | lisp/mail/rmailsum.el | 4 |
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 @@ | |||
| 1 | 2009-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 | |||
| 1 | 2009-02-02 Stefan Monnier <monnier@iro.umontreal.ca> | 24 | 2009-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 | |||
| 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. |