From: yamaoka <yamaoka>
Date: Thu, 14 Sep 2000 06:30:21 +0000 (+0000)
Subject: Withdraw the last change.
X-Git-Tag: t-gnus-6_14_5-05~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=71a36fdd655e676f51c28eadde95971640bd1072;p=elisp%2Fgnus.git-

Withdraw the last change.

(gnus-article-add-button): Add widget button.
(gnus-article-display-mime-message): Don't set `mime-button-mother-dispatcher'.
---

diff --git a/ChangeLog b/ChangeLog
index 889ed05..7c26da0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,8 @@
 2000-09-14  Katsumi Yamaoka <yamaoka@jpl.org>
 
-	* 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  <watanabe@sigmaitec.co.jp>
 
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: