From: Dave Love <fx@gnu.org>
Date: Thu, 30 Nov 2000 17:04:49 +0000 (+0000)
Subject: (message-mail-alias-type): Customize.
X-Git-Tag: emacs-pretest-21.0.93~334
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c541eb9a3934aba609fd1c46c68adb509da89f5e;p=emacs.git

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

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index ba003faae57..97fea5a8c55 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -649,10 +649,14 @@ a message of type TYPE; and FUNCTION is a function to be called if
 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 @@ A value of nil means exclude your own name only."
 (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)