From: Reiner Steib Date: Wed, 6 Sep 2006 09:43:59 +0000 (+0000) Subject: (gnus-button-regexp, gnus-button-marker-list) X-Git-Tag: emacs-pretest-22.0.90~739 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=676c18937fbecac25f02ad76d7633b2691a4ecd4;p=emacs.git (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 25a7ff4c29a..142bb93bef4 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2006-09-06 Reiner Steib + + * 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 * 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)