(gnus-button-regexp, gnus-button-marker-list)

(gnus-button-last): Move up.  Convert comments into doc strings.

2 files changed, 13 insertions, 7 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 25a7ff4c29a..142bb93bef4 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-06  Reiner Steib  <Reiner.Steib@gmx.de>
+
+        * gnus-art.el (gnus-button-regexp, gnus-button-marker-list)
+        (gnus-button-last): Move up.  Convert comments into doc strings.
+
 2006-09-04  Chong Yidong  <cyd@stupidchicken.com>
 
         * message.el (message-send-mail-with-sendmail): Look for sendmail in
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 7690d533cc8..ecee7ff6847 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -3940,6 +3940,14 @@ commands:
   (mm-enable-multibyte)
   (gnus-run-mode-hooks 'gnus-article-mode-hook))
 
+;; Internal variables.  Are `gnus-button-regexp' and `gnus-button-last' used
+;; at all?
+(defvar gnus-button-regexp nil)
+(defvar gnus-button-marker-list nil
+  "Regexp matching any of the regexps from `gnus-button-alist'.")
+(defvar gnus-button-last nil
+  "The value of `gnus-button-alist' when `gnus-button-regexp' was build.")
+
 (defun gnus-article-setup-buffer ()
   "Initialize the article buffer."
   (let* ((name (if gnus-single-article-buffer "*Article*"
@@ -6711,13 +6719,6 @@ HEADER is a regexp to match a header.  For a fuller explanation, see
                                :inline t
                                (integer :tag "Regexp group")))))
 
-(defvar gnus-button-regexp nil)
-(defvar gnus-button-marker-list nil)
-;; Regexp matching any of the regexps from `gnus-button-alist'.
-
-(defvar gnus-button-last nil)
-;; The value of `gnus-button-alist' when `gnus-button-regexp' was build.
-
 ;;; Commands:
 
 (defun gnus-article-push-button (event)