From: yamaoka <yamaoka>
Date: Tue, 24 Jan 2006 11:36:32 +0000 (+0000)
Subject: Synch to No Gnus 200601241136.
X-Git-Tag: t-gnus-6_17_4-quimby-~137
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=22fece73c5bfc4c35409ef1144aa15fe85d7c037;p=elisp%2Fgnus.git-

Synch to No Gnus 200601241136.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70d2a97..c72e5d7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-01-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* gnus-xmas.el (gnus-mime-security-button-menu): New alias.
+	(gnus-xmas-mime-security-button-menu): New function.
+
 	* gnus-art.el (gnus-mime-security-button-commands): New variable.
 	(gnus-mime-security-button-menu): New definition.
 	(gnus-mime-security-button-map): Use them.
diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index cde1c43..858d044 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -428,6 +428,8 @@ call it with the value of the `gnus-data' text property."
   (defalias 'gnus-mark-active-p 'region-exists-p)
   (defalias 'gnus-annotation-in-region-p 'gnus-xmas-annotation-in-region-p)
   (defalias 'gnus-mime-button-menu 'gnus-xmas-mime-button-menu)
+  (defalias 'gnus-mime-security-button-menu
+    'gnus-xmas-mime-security-button-menu)
   (defalias 'gnus-image-type-available-p 'gnus-xmas-image-type-available-p)
   (defalias 'gnus-put-image 'gnus-xmas-put-image)
   (defalias 'gnus-create-image 'gnus-xmas-create-image)
@@ -861,6 +863,21 @@ XEmacs compatibility workaround."
     (goto-char (event-point event))
     (funcall (event-function response) (event-object response))))
 
+(defun gnus-xmas-mime-security-button-menu (event prefix)
+  "Construct a context-sensitive menu of security commands."
+  (interactive "e\nP")
+  (let ((response
+	 (get-popup-menu-response
+	  `("Security Part"
+	    ,@(delq nil
+		    (mapcar (lambda (c)
+			      (unless (eq (car c) 'undefined)
+				`[,(caddr c) ,(car c) t]))
+			    gnus-mime-security-button-commands))))))
+    (set-buffer (event-buffer event))
+    (goto-char (event-point event))
+    (funcall (event-function response) (event-object response))))
+
 (defun gnus-group-add-icon ()
   "Add an icon to the current line according to `gnus-group-icon-list'."
   (let* ((p (point))