changeset 8384:4c88569aaa73

(rmail-display-summary): New variable. (rmail): Call rmail-summary at the end if rmail-display-summary is set. (rmail-highlight-face): New variable. (rmail-highlight-headers): Use it if non-nil.

--- a/lisp/mail/rmail.el	Sat Jul 30 02:46:24 1994 +0000
+++ b/lisp/mail/rmail.el	Sat Jul 30 07:46:03 1994 +0000
@@ -73,7 +73,8 @@
 ;;;###autoload
 (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\
 *Regexp to match Header fields that Rmail should normally highlight.
-A value of nil means don't highlight.")
+A value of nil means don't highlight.
+See also `rmail-highlight-face'.")
 
 ;;;###autoload
 (defvar rmail-highlight-face nil "\
@@ -121,6 +122,9 @@
 (defvar rmail-reply-prefix "Re: "
   "String to prepend to Subject line when replying to a message.")
 
+(defvar rmail-display-summary nil
+  "If non nil, the summary buffer is always displayed.")
+
 (defvar rmail-mode-map nil)
 
 (defvar rmail-inbox-list nil)
@@ -221,7 +225,9 @@
 May be called with file name as argument; then performs rmail editing on
 that file, but does not copy any new mail into the file.
 Interactively, if you supply a prefix argument, then you
-have a chance to specify a file name with the minibuffer."
+have a chance to specify a file name with the minibuffer.
+
+If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
   (interactive (if current-prefix-arg
 		   (list (read-file-name "Run rmail on RMAIL file: "
 					 nil nil t))))
@@ -264,7 +270,8 @@
       ;; or might have been just read in by rmail-get-new-mail.  Must
       ;; determine already unseen messages first, as rmail-get-new-mail
       ;; positions on the first new message, thus marking it as seen.
-      (rmail-show-message existing-unseen))))
+      (rmail-show-message existing-unseen))
+    (if rmail-display-summary (rmail-summary))))
 
 ;; Given the value of MAILPATH, return a list of inbox file names.
 ;; This is turned off because it is not clear that the user wants