X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pgg.el;h=1a25d91a84472eb990cab8371c0366243e8b6e5a;hb=851ab40b8393dce958192e092dae43b465a4aa8b;hp=2b17b3ecd1319401fcb2c5e0cf03c3c0f1b8ca18;hpb=881487f41b6e8c7d0fa4481a39740970756cb2a2;p=elisp%2Fsemi.git

diff --git a/pgg.el b/pgg.el
index 2b17b3e..1a25d91 100644
--- a/pgg.el
+++ b/pgg.el
@@ -416,6 +416,15 @@ signer's public key from `pgg-default-keyserver-address'."
 	  (insert-buffer-substring pgg-output-buffer)
 	  (pgg-snarf-keys-region (point-min)(point-max)))))))
 
+;;;###autoload
+(defun pgg-universal-user-id-argument ()
+  (interactive)
+  (let* ((pgg-overriding-user-id (read-string "User ID: "))
+	 (command (key-binding (read-key-sequence
+				(format "Command to execute on \"%s\":"
+					pgg-overriding-user-id)))))
+    (message "")
+    (call-interactively command)))
 
 (provide 'pgg)