Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0a01a04e
Commit
0a01a04e
authored
May 03, 1997
by
Richard M. Stallman
Browse files
Use defcustom.
parent
9bb97fe9
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
24 additions
and
10 deletions
+24
-10
lisp/mail/rmailout.el
lisp/mail/rmailout.el
+12
-4
lisp/mail/rmailsum.el
lisp/mail/rmailsum.el
+12
-6
No files found.
lisp/mail/rmailout.el
View file @
0a01a04e
...
...
@@ -27,13 +27,18 @@
(
require
'rmail
)
;;;###autoload
(
def
var
rmail-output-file-alist
nil
(
def
custom
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
...
...
lisp/mail/rmailsum.el
View file @
0a01a04e
...
...
@@ -34,12 +34,16 @@
(
require
'rmail
)
;;;###autoload
(
defvar
rmail-summary-scroll-between-messages
t
"*Non-nil means Rmail summary scroll commands move between messages."
)
(
defcustom
rmail-summary-scroll-between-messages
t
"*Non-nil means Rmail summary scroll commands move between messages."
:type
'boolean
:group
'rmail-summary
)
;;;###autoload
(
defvar
rmail-summary-line-count-flag
t
"*Non-nil if Rmail summary should show the number of lines in each message."
)
(
defcustom
rmail-summary-line-count-flag
t
"*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
'
((
"^....D.*"
.
font-lock-string-face
)
; Deleted.
...
...
@@ -267,10 +271,12 @@ nil for FUNCTION means all messages."
line
))
;;;###autoload
(
def
var
rmail-summary-line-decoder
(
function
identity
)
(
def
custom
rmail-summary-line-decoder
(
function
identity
)
"*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
)
(
goto-char
(
rmail-msgbeg
msg
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment