mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(rmail-summary-by-topic): Doc fix.

Browse Source 
Regexp-quote default argument taken from current subject.
(rmail-new-summary-1): Error if empty summary.  (Bug#2333)
This commit is contained in:
Glenn Morris 2009-02-19 03:32:23 +00:00
parent 3e3480fb8a
commit 70369cd351
2 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/ChangeLog
View File

@ -1,3 +1,21 @@
2009-02-19 Glenn Morris <rgm@gnu.org>
* mail/rmailsum.el (rmail-summary-by-topic): Doc fix.
Regexp-quote default argument taken from current subject.
(rmail-new-summary-1): Error if empty summary. (Bug#2333)
* mail/rmail-spam-filter.el (rmail-get-new-mail-filter-spam):
Move here from rmail.el. Be more careful about error-handling.
Restore the feature of temporarily setting all old messages
undeleted before expunging (removed 2009-02-18).
* mail/rmail.el (rsf-beep, rsf-sleep-after-message, rmail-spam-filter):
Don't declare.
(rmail-get-new-mail-filter-spam): Declare. Move definition to
rmail-spam-filter.el.
(rmail-get-new-mail-1): Move the beep and sleep to
rmail-get-new-mail-filter-spam.
2009-02-18 Martin Rudalics <rudalics@gmx.at>
* cus-edit.el (custom-group-value-create): Insert some

17
lisp/mail/rmailsum.el
View File

@ -150,12 +150,13 @@ Emacs will list the header line in the RMAIL-summary."
;;;###autoload
(defun rmail-summary-by-topic (subject &optional whole-message)
"Display a summary of all messages with the given SUBJECT.
Normally checks the Subject field of headers;
but if WHOLE-MESSAGE is non-nil (prefix arg given),
look in the whole message.
Normally checks just the Subject field of headers; but with prefix
argument WHOLE-MESSAGE is non-nil, looks in the whole message.
SUBJECT is a string of regexps separated by commas."
(interactive
(let* ((subject (rmail-simplified-subject))
;; We quote the default subject, because if it contains regexp
;; special characters (eg "?"), it can fail to match itself. (Bug#2333)
(let* ((subject (regexp-quote (rmail-simplified-subject)))
(prompt (concat "Topics to summarize by (regexp"
(if subject ", default current subject" "")
"): ")))
@ -282,18 +283,18 @@ message."
rmail-new-summary-line-count)))
(setq summary-msgs (nreverse summary-msgs)))
(narrow-to-region old-min old-max)))))
;; Temporarily, while summary buffer is unfinished,
;; we "don't have" a summary.
;;
(setq rmail-summary-buffer nil)
(unless summary-msgs
(kill-buffer sumbuf)
(error "Nothing to summarize"))
;; I have not a clue what this clause is doing. If you read this
;; chunk of code and have a clue, then please email that clue to
;; pmr@pajato.com
(setq rmail-summary-buffer nil)
(if rmail-enable-mime
(with-current-buffer rmail-buffer
(setq rmail-summary-buffer nil)))
(save-excursion
(let ((rbuf (current-buffer))
(total rmail-total-messages))