procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Echo area shows when displaying a mime message.

Browse source 
* lisp/mail/rmail.el (rmail-show-message-1): When displaying a mime message,
indicate start and finish in the echo area.
This commit is contained in:
Richard M. Stallman 2015-03-22 03:45:03 -04:00 • committed by Richard Stallman
parent 414e79feeb
commit 1a80be15bb
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2015-03-22 Richard Stallman <rms@gnu.org>
* 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.

12
lisp/mail/rmail.el
View file

@ -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)