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

diff --git a/pgg.el b/pgg.el
index 2b17b3e..ad7ae22 100644
--- a/pgg.el
+++ b/pgg.el
@@ -20,8 +20,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 
 ;;; Commentary:
@@ -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)