[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmail.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmail.el |
Date: |
Thu, 12 Feb 2009 04:01:02 +0000 |
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)
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/02
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/03
- [Emacs-diffs] emacs/lisp/mail rmail.el, Eli Zaretskii, 2009/02/07
- [Emacs-diffs] emacs/lisp/mail rmail.el, Eli Zaretskii, 2009/02/07
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/09
- [Emacs-diffs] emacs/lisp/mail rmail.el,
Richard M. Stallman <=
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/13
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/13
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/02/13
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/02/17
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/17
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/18
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/20
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/23
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/26
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/02/27