(message-newgroups-header-regexp)

(message-completion-alist, message-tab-body-function): Use
defcustom rather than defvar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1bdda4b..682859b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-29  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * message.el (message-newgroups-header-regexp)
+       (message-completion-alist, message-tab-body-function): Use
+       defcustom rather than defvar.
+
 2001-11-28 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-uu.el (gnus-uu-save-article): Use #part instead of #mml.

diff --git a/lisp/message.el b/lisp/message.el
index e166ae8..b30b16d 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5170,17 +5170,23 @@ which specify the range to operate on."
 
 ;;; Group name completion.
 
-(defvar message-newgroups-header-regexp
+(defcustom message-newgroups-header-regexp
   "^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):"
-  "Regexp that match headers that lists groups.")
+  "Regexp that match headers that lists groups."
+  :group 'message
+  :type 'regexp)
 
-(defvar message-completion-alist
+(defcustom message-completion-alist
   (list (cons message-newgroups-header-regexp 'message-expand-group)
        '("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name))
-  "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE.")
+  "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE."
+  :group 'message
+  :type '(alist :key-type regexp :value-type function))
 
-(defvar message-tab-body-function 'indent-relative
-  "*Function to execute when `message-tab' (TAB) is executed in the body.")
+(defcustom message-tab-body-function 'indent-relative
+  "*Function to execute when `message-tab' (TAB) is executed in the body."
+  :group 'message
+  :type 'function)
 
 (defun message-tab ()
   "Complete names according to `message-completion-alist'.