Commit 0a01a04e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Use defcustom.

parent 9bb97fe9
...@@ -27,13 +27,18 @@ ...@@ -27,13 +27,18 @@
(require 'rmail) (require 'rmail)
;;;###autoload ;;;###autoload
(defvar rmail-output-file-alist nil (defcustom rmail-output-file-alist nil
"*Alist matching regexps to suggested output Rmail files. "*Alist matching regexps to suggested output Rmail files.
This is a list of elements of the form (REGEXP . NAME-EXP). This is a list of elements of the form (REGEXP . NAME-EXP).
The suggestion is taken if REGEXP matches anywhere in the message buffer. The suggestion is taken if REGEXP matches anywhere in the message buffer.
NAME-EXP may be a string constant giving the file name to use, NAME-EXP may be a string constant giving the file name to use,
or more generally it may be any kind of expression that returns or more generally it may be any kind of expression that returns
a file name as a string.") a file name as a string."
:type '(repeat (cons regexp
(choice :value ""
(string :tag "File Name")
sexp)))
:group 'rmail-output)
;;; There are functions elsewhere in Emacs that use this function; check ;;; There are functions elsewhere in Emacs that use this function; check
;;; them out before you change the calling method. ;;; them out before you change the calling method.
...@@ -172,8 +177,11 @@ starting with the current one. Deleted messages are skipped and don't count." ...@@ -172,8 +177,11 @@ starting with the current one. Deleted messages are skipped and don't count."
(rmail-next-undeleted-message 1)))))) (rmail-next-undeleted-message 1))))))
;;;###autoload ;;;###autoload
(defvar rmail-fields-not-to-output nil (defcustom rmail-fields-not-to-output nil
"*Regexp describing fields to exclude when outputting a message to a file.") "*Regexp describing fields to exclude when outputting a message to a file."
:type '(choice (const :tag "None" nil)
regexp)
:group 'rmail-output)
;; Delete from the buffer header fields we don't want output. ;; Delete from the buffer header fields we don't want output.
;; NOT-RMAIL if t means this buffer does not have the full header ;; NOT-RMAIL if t means this buffer does not have the full header
......
...@@ -34,12 +34,16 @@ ...@@ -34,12 +34,16 @@
(require 'rmail) (require 'rmail)
;;;###autoload ;;;###autoload
(defvar rmail-summary-scroll-between-messages t (defcustom rmail-summary-scroll-between-messages t
"*Non-nil means Rmail summary scroll commands move between messages.") "*Non-nil means Rmail summary scroll commands move between messages."
:type 'boolean
:group 'rmail-summary)
;;;###autoload ;;;###autoload
(defvar rmail-summary-line-count-flag t (defcustom rmail-summary-line-count-flag t
"*Non-nil if Rmail summary should show the number of lines in each message.") "*Non-nil if Rmail summary should show the number of lines in each message."
:type 'boolean
:group 'rmail-summary)
(defvar rmail-summary-font-lock-keywords (defvar rmail-summary-font-lock-keywords
'(("^....D.*" . font-lock-string-face) ; Deleted. '(("^....D.*" . font-lock-string-face) ; Deleted.
...@@ -267,10 +271,12 @@ nil for FUNCTION means all messages." ...@@ -267,10 +271,12 @@ nil for FUNCTION means all messages."
line)) line))
;;;###autoload ;;;###autoload
(defvar rmail-summary-line-decoder (function identity) (defcustom rmail-summary-line-decoder (function identity)
"*Function to decode summary-line. "*Function to decode summary-line.
By default, `identity' is set.") By default, `identity' is set."
:type 'function
:group 'rmail-summary)
(defun rmail-make-summary-line-1 (msg) (defun rmail-make-summary-line-1 (msg)
(goto-char (rmail-msgbeg msg)) (goto-char (rmail-msgbeg msg))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment