mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -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)
;;;###autoload
(defvar rmail-output-file-alist nil
(defcustom rmail-output-file-alist nil
"*Alist matching regexps to suggested output Rmail files.
This is a list of elements of the form (REGEXP . NAME-EXP).
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,
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
;;; 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))))))
;;;###autoload
(defvar rmail-fields-not-to-output nil
"*Regexp describing fields to exclude when outputting a message to a file.")
(defcustom rmail-fields-not-to-output nil
"*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.
;; NOT-RMAIL if t means this buffer does not have the full header