comparison lisp/mail/rmail.el @ 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.

8383:d2b1b642f4e6

*Regexp to match Header fields that Rmail should normally hide.")

;;;###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.")

;;;###autoload
(defvar rmail-highlight-face nil "\
*Face used by Rmail for highlighting headers.")

  "If non nil, a filter function for new messages in RMAIL.
Called with region narrowed to the message, including headers.")

(defvar rmail-reply-prefix "Re: "
  "String to prepend to Subject line when replying to a message.")

(defvar rmail-mode-map nil)

(defvar rmail-inbox-list nil)
(defvar rmail-keywords nil)

Type \\[describe-mode] once editing that file, for a list of RMAIL commands.

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."
  (interactive (if current-prefix-arg
		   (list (read-file-name "Run rmail on RMAIL file: "
					 nil nil t))))
  (or rmail-default-file
      (setq rmail-default-file (expand-file-name "~/xmail")))

	  (rmail-get-new-mail))
      ;; Show the first unseen message, which might be from a previous session
      ;; 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))))

;; 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
;; all these inboxes to feed into the primary rmail file.
; (defun rmail-convert-mailpath (string)

8384:4c88569aaa73

*Regexp to match Header fields that Rmail should normally hide.")

;;;###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.
See also `rmail-highlight-face'.")

;;;###autoload
(defvar rmail-highlight-face nil "\
*Face used by Rmail for highlighting headers.")

  "If non nil, a filter function for new messages in RMAIL.
Called with region narrowed to the message, including headers.")

(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)
(defvar rmail-keywords nil)

Type \\[describe-mode] once editing that file, for a list of RMAIL commands.

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.

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))))
  (or rmail-default-file
      (setq rmail-default-file (expand-file-name "~/xmail")))

	  (rmail-get-new-mail))
      ;; Show the first unseen message, which might be from a previous session
      ;; 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))
    (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
;; all these inboxes to feed into the primary rmail file.
; (defun rmail-convert-mailpath (string)