From: Richard M. Stallman Date: Sun, 5 May 2013 14:08:50 +0000 (-0400) Subject: * mail/rmailsum.el (rmail-new-summary, rmail-new-summary-1): X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~301 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df8f35df4a8c2556a46ed66abf9b05a932f25a66;p=emacs.git * mail/rmailsum.el (rmail-new-summary, rmail-new-summary-1): Doc fixes, rename args. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 268a716fd09..4ff2c7951de 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,9 @@ Detect empty summary and don't change selected message. (rmail-summary-goto-msg): Likewise. + * mail/rmailsum.el (rmail-new-summary, rmail-new-summary-1): + Doc fixes, rename args. + 2013-05-05 Alan Mackenzie * progmodes/cc-defs.el (c-version): Increment to 5.32.5. diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index ccd76cd6ba3..8dd4120d179 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -394,12 +394,16 @@ SENDERS is a string of regexps separated by commas." (defvar rmail-new-summary-line-count) -(defun rmail-new-summary (desc redo func &rest args) +(defun rmail-new-summary (desc redo function &rest args) "Create a summary of selected messages. -DESC makes part of the mode line of the summary buffer. REDO is form ... -For each message, FUNC is applied to the message number and ARGS... -and if the result is non-nil, that message is included. -nil for FUNCTION means all messages." +DESC makes part of the mode line of the summary buffer. +REDO is what to put in `rmail-summary-redo'; usually +its car is the function that called `rmail-new-summary' +and its cdr is the arguments passed to that function. + +For each message, applies FUNCTION to the message number and ARGS..., +and if the result is non-nil, it includes that message in the summary. +If FUNCTION is nil, includes all messages." (message "Computing summary lines...") (unless rmail-buffer (error "No RMAIL buffer found")) @@ -407,7 +411,7 @@ nil for FUNCTION means all messages." (if (eq major-mode 'rmail-summary-mode) (setq was-in-summary t)) (with-current-buffer rmail-buffer - (setq rmail-summary-buffer (rmail-new-summary-1 desc redo func args) + (setq rmail-summary-buffer (rmail-new-summary-1 desc redo function args) ;; r-s-b is buffer-local. sumbuf rmail-summary-buffer mesg rmail-current-message)) @@ -435,14 +439,14 @@ nil for FUNCTION means all messages." (rmail-summary-construct-io-menu) (message "Computing summary lines...done"))) -(defun rmail-new-summary-1 (description form function args) +(defun rmail-new-summary-1 (description redo function args) "Filter messages to obtain summary lines. DESCRIPTION is added to the mode line. Return the summary buffer by invoking FUNCTION on each message -passing the message number and ARGS... +passing the message number and ARGS. -REDO is a form ... +REDO is what to put in `rmail-summary-redo'. The current buffer must be a Rmail buffer either containing a collection of mbox formatted messages or displaying a single @@ -511,7 +515,7 @@ message." (make-local-variable 'minor-mode-alist) (setq minor-mode-alist (list (list t (concat ": " description)))) (setq rmail-buffer rbuf - rmail-summary-redo form + rmail-summary-redo redo rmail-total-messages total))) sumbuf))