Mention anonymous CVS access.

[elisp/semi.git] / pgg.el

diff --git a/pgg.el b/pgg.el
index 6975eef..1a25d91 100644 (file)
--- a/pgg.el
+++ b/pgg.el
@@ -1,8 +1,8 @@
 ;;; pgg.el --- glue for the various PGP implementations.
 
-;; Copyright (C) 1999,2000 Daiki Ueno
+;; Copyright (C) 1999,2000 Free Software Foundation, Inc.
 
-;; Author: Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+;; Author: Daiki Ueno <ueno@unixuser.org>
 ;; Created: 1999/10/28
 ;; Keywords: PGP
 
@@ -102,7 +102,8 @@
 (ctree-set-calist-strictly
  'pgg-decrypt-condition
  '((public-key-algorithm ELG-E DSA ELG)
-   (symmetric-key-algorithm 3DES CAST5 BLOWFISH TWOFISH)
+   (symmetric-key-algorithm
+    3DES CAST5 BLOWFISH RIJNDAEL RIJNDAEL192 RIJNDAEL256 TWOFISH)
    (scheme . gpg)))
 
 ;;; @ definition of the implementation scheme
@@ -415,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)