diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-03 19:16:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-03 19:16:43 +0000 |
| commit | 0a01a04eeeb0810e214ae385e231936a6207c88c (patch) | |
| tree | 1a6b11011d559ed3456f27ba7469a28dc28513fe /lisp/mail/rmailsum.el | |
| parent | 9bb97fe9a1382a01bf3927d7abd22ffe4f625b24 (diff) | |
| download | emacs-0a01a04eeeb0810e214ae385e231936a6207c88c.tar.gz | |
Use defcustom.
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 076a3d26aff..4a7dd67b082 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -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 -(defvar rmail-summary-line-decoder (function identity) +(defcustom 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)) |