[Emacs-diffs] emacs/lisp/mail rmail.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/02/12 04:01:02

Modified files:
        lisp/mail      : rmail.el 

Log message:
        (rmail-show-message-verbose-min): New option.
        (rmail-show-message): Conditionally show start and finish in echo area.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.499&r2=1.500

Patches:
Index: rmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.499
retrieving revision 1.500
diff -u -b -r1.499 -r1.500
--- rmail.el    12 Feb 2009 03:29:21 -0000      1.499
+++ rmail.el    12 Feb 2009 04:01:02 -0000      1.500
@@ -2503,6 +2503,11 @@
       (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 @@
        (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 @@
        (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)