call-interactively.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7daf66a..0552a73 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-04-28 16:01:09  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-mime-button-menu): Use call-interactively.
+
 2000-04-28 15:30:17  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * mml.el (mml-generate-mime-1): Ignore 0x1b.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index dbeea0a..94d97e5 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2821,7 +2821,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                                           (cons (caddr c) (car c)))
                                         gnus-mime-button-commands))))))
        (if response
-           (funcall response))))))
+           (call-interactively response))))))
 
 (defun gnus-mime-view-all-parts (&optional handles)
   "View all the MIME parts."