mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

Use defcustom.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-03 19:16:43 +00:00
parent 9bb97fe9a1
commit 0a01a04eee
2 changed files with 24 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/mail/rmailout.el
View file

@ -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."
(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

18
lisp/mail/rmailsum.el
View file

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