diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-13 04:33:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-13 04:33:02 +0000 |
| commit | e13d531d4f1e4ad4b348e2c950b74cef3ee67280 (patch) | |
| tree | 7e5c002581f5c0609a9650ef18651fabb77e6491 /lisp/mail/uce.el | |
| parent | 5755be321d4f414f757f6b03dac982df685eac8a (diff) | |
| download | emacs-e13d531d4f1e4ad4b348e2c950b74cef3ee67280.tar.gz emacs-e13d531d4f1e4ad4b348e2c950b74cef3ee67280.tar.bz2 emacs-e13d531d4f1e4ad4b348e2c950b74cef3ee67280.zip | |
Several fixes in doc string style.
(uce-mail-reader): Use defcustom.
Diffstat (limited to 'lisp/mail/uce.el')
| -rw-r--r-- | lisp/mail/uce.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 3b0956159dd..06c57960a4a 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -114,18 +114,21 @@ ;; RMAIL are only evaluated if we have received a message with RMAIL... ;;(require 'rmail) -(defvar uce-mail-reader 'rmail - "A symbol indicating which mail reader you are using. -Choose from: gnus, rmail.") - (defgroup uce nil "Facilitate reply to unsolicited commercial email." :prefix "uce-" :group 'mail) +(defcustom uce-mail-reader 'rmail + "A symbol indicating which mail reader you are using. +Choose from: `gnus', `rmail'." + :type '(choice (const gnus) (const rmail)) + :version "20.3" + :group 'uce) + (defcustom uce-setup-hook nil "Hook to run after UCE rant message is composed. -This hook is run after mail-setup-hook, which is run as well." +This hook is run after `mail-setup-hook', which is run as well." :type 'hook :group 'uce) @@ -166,7 +169,7 @@ using your sendmail at this moment of time. Thank you." - "This is the text that uce-reply-to-uce command will put in reply buffer. + "This is the text that `uce-reply-to-uce' command will put in reply buffer. Some of spamming programs in use will be set up to read all incoming to spam address email, and will remove people who put the word `remove' on beginning of some line from the spamming list. So, when you set it @@ -185,7 +188,7 @@ Value nil means use no separator." (defcustom uce-signature mail-signature "Text to put as your signature after the note to UCE sender. -Value nil means none, t means insert ~/.signature file (if it happens +Value nil means none, t means insert `~/.signature' file (if it happens to exist), if this variable is a string this string will be inserted as your signature." :type '(choice (const nil) (const t) string) |