1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00

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

(gnus-button-last): Move up.  Convert comments into doc strings.
This commit is contained in:
Reiner Steib 2006-09-06 09:43:59 +00:00
parent 5f85272e5b
commit 676c18937f
2 changed files with 13 additions and 7 deletions

View File

@ -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

View File

@ -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)