diff options
| author | Richard M. Stallman <rms@gnu.org> | 2015-03-22 03:45:03 -0400 |
|---|---|---|
| committer | Richard Stallman <rms@gnu.org> | 2015-03-22 03:45:03 -0400 |
| commit | 1a80be15bb1974d454cf37bcd1bd1be64e2cb488 (patch) | |
| tree | 43e5cb056a2fb7a94b01b41bb237b851e2e9d6c9 /lisp/mail/rmail.el | |
| parent | 414e79feeb445dc141b65767dfc3ba8dbb55723c (diff) | |
| download | emacs-1a80be15bb1974d454cf37bcd1bd1be64e2cb488.tar.gz | |
Echo area shows when displaying a mime message.
* lisp/mail/rmail.el (rmail-show-message-1): When displaying a mime message,
indicate start and finish in the echo area.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 855a4c2d0ff..643b5f947c7 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2762,7 +2762,8 @@ The current mail message becomes the message displayed." (let ((mbox-buf rmail-buffer) (view-buf rmail-view-buffer) blurb beg end body-start coding-system character-coding - is-text-message header-style) + is-text-message header-style + showing-message) (if (not msg) (setq msg rmail-current-message)) (unless (setq blurb (rmail-no-mail-p)) @@ -2788,7 +2789,8 @@ The current mail message becomes the message displayed." (setq beg (rmail-msgbeg msg) end (rmail-msgend msg)) (when (> (- end beg) rmail-show-message-verbose-min) - (message "Showing message %d" msg)) + (setq showing-message t) + (message "Showing message %d..." msg)) (narrow-to-region beg end) (goto-char beg) (with-current-buffer rmail-view-buffer @@ -2802,6 +2804,8 @@ The current mail message becomes the message displayed." (re-search-forward "mime-version: 1.0" nil t)) (let ((rmail-buffer mbox-buf) (rmail-view-buffer view-buf)) + (setq showing-message t) + (message "Showing message %d..." msg) (set (make-local-variable 'rmail-mime-decoded) t) (funcall rmail-show-mime-function)) (setq body-start (search-forward "\n\n" nil t)) @@ -2881,8 +2885,8 @@ The current mail message becomes the message displayed." (rmail-swap-buffers) (setq rmail-buffer-swapped t) (run-hooks 'rmail-show-message-hook) - (when (> (- end beg) rmail-show-message-verbose-min) - (message "Showing message %d...done" msg)))) + (when showing-message + (setq blurb (format "Showing message %d...done" msg))))) blurb)) (defun rmail-copy-headers (beg end &optional ignored-headers) |