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:
parent
5f85272e5b
commit
676c18937f
@ -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
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user