From 22581d83535f964402f0ace65a3f06b479c7219f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 23 Feb 2003 15:39:44 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-xmas.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * gnus-xmas.el (gnus-xmas-mime-button-menu): Accept a prefix arg. + 2003-02-20 Reiner Steib * 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 () -- 1.7.10.4