2000-11-12 11:53:18 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-mime-button-menu): Use select-window.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f8cb11..c5c9f15 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-12 11:53:18  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-mime-button-menu): Use select-window.
+
 2000-11-12 09:47:54  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-mime-display-part): Display multipart/related

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1ab6b58..dacfdd3 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3042,9 +3042,9 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 (defun gnus-mime-button-menu (event)
   "Construct a context-sensitive menu of MIME commands."
   (interactive "e")
-  (save-excursion
+  (save-window-excursion
     (let ((pos (event-start event)))
-      (set-buffer (window-buffer (posn-window pos)))
+      (select-window (posn-window pos))
       (goto-char (posn-point pos))
       (gnus-article-check-buffer)
       (let ((response (x-popup-menu