(rmail-show-message-verbose-min): New option.

(rmail-show-message): Conditionally show start and finish in echo area.

2 files changed, 15 insertions, 1 deletions

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  <rms@gnu.org>
+
+        * 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  <rgm@gnu.org>
 
         * 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)