Commit 51584624 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(rmail-show-message): Conditionally show start and finish in echo area.
parent ded8c6ea
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment