# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897712382 0
# Node ID 198054d3498c92bc65beb1d0d10d39784fff503e
# Parent  8a7cf102704daf066551862b1dfd5d78a7a9d153
 Several fixes in doc string style.
(uce-mail-reader): Use defcustom.

diff -r 8a7cf102704d -r 198054d3498c lisp/mail/uce.el
--- a/lisp/mail/uce.el	Sat Jun 13 04:06:46 1998 +0000
+++ b/lisp/mail/uce.el	Sat Jun 13 04:33:02 1998 +0000
@@ -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 @@
 
 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 @@
 
 (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)