From: yamaoka <yamaoka>
Date: Sun, 23 Feb 2003 15:39:44 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_17-00-quimby~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=22581d83535f964402f0ace65a3f06b479c7219f;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca94795..6bdef9b 100644
--- 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
--- 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 ()