diff lisp/gnus/message.el @ 34058:9f5e2364ef2b

(message-mail-alias-type): Customize. (message-headers): Remove duplicate defgroup.

--- a/lisp/gnus/message.el	Thu Nov 30 16:46:52 2000 +0000
+++ b/lisp/gnus/message.el	Thu Nov 30 17:04:49 2000 +0000
@@ -649,10 +649,14 @@
 PREDICATE returns non-nil.  FUNCTION is called with one parameter --
 the prefix.")
 
-(defvar message-mail-alias-type 'abbrev
+(defcustom message-mail-alias-type 'abbrev
   "*What alias expansion type to use in Message buffers.
 The default is `abbrev', which uses mailabbrev.  nil switches
-mail aliases off.")
+mail aliases off."
+  :group 'message
+  :link '(custom-manual "(message)Mail Aliases")
+  :type '(choice (const :tag "Use Mailabbrev" abbrev)
+		 (const :tag "No expansion" nil)))
 
 (defcustom message-auto-save-directory
   (file-name-as-directory (nnheader-concat message-directory "drafts"))
@@ -700,10 +704,6 @@
 (defvar message-mode-abbrev-table text-mode-abbrev-table
   "Abbrev table used in Message mode buffers.
 Defaults to `text-mode-abbrev-table'.")
-(defgroup message-headers nil
-  "Message headers."
-  :link '(custom-manual "(message)Variables")
-  :group 'message)
 
 (defface message-header-to-face
   '((((class color)