From 51584624eee2e282fbd7a299b6cc57fa7dd3747e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 12 Feb 2009 04:01:11 +0000 Subject: [PATCH] (rmail-show-message-verbose-min): New option. (rmail-show-message): Conditionally show start and finish in echo area. --- lisp/ChangeLog | 5 +++++ lisp/mail/rmail.el | 11 ++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 443db51c897..bb113227b68 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-02-12 Richard M Stallman + + * mail/rmail.el (rmail-show-message-verbose-min): New option. + (rmail-show-message): Conditionally show start and finish in echo area. + 2009-02-12 Glenn Morris * mail/rmailsum.el (rmail-get-summary-labels): Store any message labels diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 537c404f513..e54fd01460d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2503,6 +2503,11 @@ N defaults to the current message." (or (not content-type-header) (string-match text-regexp content-type-header))))) +(defcustom rmail-show-message-verbose-min 200000 + "Message size at which to show progress messages for displaying it." + :type 'integer + :group 'rmail) + (defun rmail-show-message (&optional msg) "Show message MSG (default: current message) using `rmail-view-buffer'. Return text to display in the minibuffer if MSG is out of @@ -2532,6 +2537,8 @@ The current mail message becomes the message displayed." (rmail-swap-buffers-maybe) (setq beg (rmail-msgbeg msg) end (rmail-msgend msg)) + (when (> (- end beg) rmail-show-message-verbose-min) + (message "Showing message %d" msg)) (narrow-to-region beg end) (goto-char beg) (setq body-start (search-forward "\n\n" nil t)) @@ -2598,7 +2605,9 @@ The current mail message becomes the message displayed." (rmail-display-labels) (rmail-swap-buffers) (setq rmail-buffer-swapped t) - (run-hooks 'rmail-show-message-hook))) + (run-hooks 'rmail-show-message-hook) + (when (> (- end beg) rmail-show-message-verbose-min) + (message "Showing message %d...done" msg)))) blurb)) (defun rmail-copy-headers (beg end &optional ignored-headers) -- 2.39.5