Synch to Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca94795..6bdef9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-xmas.el (gnus-xmas-mime-button-menu): Accept a prefix arg.
+
 2003-02-20  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * message.el (message-user-fqdn, message-valid-fqdn-regexp): New

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 418e68e..0513d42 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -791,15 +791,16 @@ XEmacs compatibility workaround."
          (eq (cadr (memq 'gnus-undeletable (text-properties-at b))) t)
        (text-property-any b e 'gnus-undeletable t))))
 
-(defun gnus-xmas-mime-button-menu (event)
+(defun gnus-xmas-mime-button-menu (event prefix)
   "Construct a context-sensitive menu of MIME commands."
-  (interactive "e")
+  (interactive "e\nP")
   (let ((response (get-popup-menu-response
                   `("MIME Part"
                     ,@(mapcar (lambda (c) `[,(caddr c) ,(car c) t])
                               gnus-mime-button-commands)))))
     (set-buffer (event-buffer event))
     (goto-char (event-point event))
+    (setq current-prefix-arg prefix)
     (funcall (event-function response) (event-object response))))
 
 (defun gnus-group-add-icon ()