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 (file)
--- 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 (file)
--- 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: