From 71a36fdd655e676f51c28eadde95971640bd1072 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 14 Sep 2000 06:30:21 +0000 Subject: [PATCH] Withdraw the last change. (gnus-article-add-button): Add widget button. (gnus-article-display-mime-message): Don't set `mime-button-mother-dispatcher'. --- ChangeLog | 4 +++- lisp/gnus-art.el | 13 ++++--------- 2 files changed, 7 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 889ed05..7c26da0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,8 @@ 2000-09-14 Katsumi Yamaoka - * lisp/gnus-art.el (mime-button-mother-dispatcher): Bind. + * lisp/gnus-art.el (gnus-article-add-button): Add widget button. + (gnus-article-display-mime-message): Don't set + `mime-button-mother-dispatcher'. 2000-09-07 Tadashi Watanabe diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index d36aa71..14981af 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2901,8 +2901,6 @@ commands: ;;; @@ article filters ;;; -(defvar mime-button-mother-dispatcher) - (defun gnus-article-display-mime-message () "Article display method for MIME message." ;; called from `gnus-original-article-buffer'. @@ -2918,12 +2916,7 @@ commands: (mime-display-message mime-message-structure gnus-article-buffer nil gnus-article-mode-map) (when all-headers - (gnus-article-hide-headers nil -1)) - ) - ;; `mime-display-message' changes current buffer to `gnus-article-buffer'. - (make-local-variable 'mime-button-mother-dispatcher) - (setq mime-button-mother-dispatcher - (function gnus-article-push-button)) + (gnus-article-hide-headers nil -1))) (run-hooks 'gnus-mime-article-prepare-hook)) (defun gnus-article-display-traditional-message () @@ -4866,7 +4859,9 @@ specified by `gnus-button-alist'." (nconc (and gnus-article-mouse-face (list gnus-mouse-face-prop gnus-article-mouse-face)) (list 'gnus-callback fun) - (and data (list 'gnus-data data))))) + (and data (list 'gnus-data data)))) + (widget-convert-button 'link from to :action 'gnus-widget-press-button + :button-keymap gnus-widget-button-keymap)) ;;; Internal functions: -- 1.7.10.4