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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 25a7ff4c29a66b71f496189069872b19ec5b7087..142bb93bef4cd0bbdc0d8a54a05fa78636386060 100644 (file)
--- 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 7690d533cc8cdc23186c1ed4873286ca1dc637ae..ecee7ff684741dc6fd6902ddfb790e6dd5238795 100644 (file)
--- 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)