From 1a80be15bb1974d454cf37bcd1bd1be64e2cb488 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 Mar 2015 03:45:03 -0400 Subject: [PATCH] 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. --- lisp/ChangeLog | 3 +++ lisp/mail/rmail.el | 12 ++++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index be3a763ab25..8631295ef6e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2015-03-22 Richard Stallman + * mail/rmail.el (rmail-show-message-1): When displaying a mime message, + indicate start and finish in the echo area. + * net/browse-url.el (browse-url-firefox-program): Prefer IceCat, doc. (browse-url-firefox-arguments) (browse-url-firefox-startup-arguments): Doc fix. 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) -- 2.39.2