* epa.el (epa-list-keys): Abolished PROTOCOL arg.

diff --git a/ChangeLog b/ChangeLog
index d464b63..8a22aa1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-12-20  Daiki Ueno  <ueno@unixuser.org>
+
+       * epa.el (epa-list-keys): Abolished PROTOCOL arg.
+
 2006-12-19  Daiki Ueno  <ueno@unixuser.org>
 
        * epg.el (epg-export-keys-to-file): Fixed a typo.

diff --git a/epa.el b/epa.el
index 90b7ddf..44d8431 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -329,19 +329,15 @@ If ARG is non-nil, mark the current line."
   (funcall epa-exit-buffer-function))
 
 ;;;###autoload
-(defun epa-list-keys (&optional name mode protocol)
+(defun epa-list-keys (&optional name mode)
   (interactive
    (if current-prefix-arg
        (let ((name (read-string "Pattern: "
                                (if epa-list-keys-arguments
                                    (car epa-list-keys-arguments)))))
         (list (if (equal name "") nil name)
-              (y-or-n-p "Secret keys? ")
-              (intern (completing-read
-                       (format "Protocol? (default %S) " epa-protocol)
-                       '(("OpenPGP") ("CMS"))
-                       nil t nil nil (symbol-name epa-protocol)))))
-     (or epa-list-keys-arguments (list nil nil epa-protocol))))
+              (y-or-n-p "Secret keys? ")))
+     (or epa-list-keys-arguments (list nil nil))))
   (unless (and epa-keys-buffer
               (buffer-live-p epa-keys-buffer))
     (setq epa-keys-buffer (generate-new-buffer "*Keys*")))
@@ -349,7 +345,7 @@ If ARG is non-nil, mark the current line."
   (let ((inhibit-read-only t)
        buffer-read-only
        (point (point-min))
-       (context (epg-make-context protocol)))
+       (context (epg-make-context epa-protocol)))
     (unless (get-text-property point 'epa-list-keys)
       (setq point (next-single-property-change point 'epa-list-keys)))
     (when point
@@ -362,7 +358,7 @@ If ARG is non-nil, mark the current line."
     (widget-setup)
     (set-keymap-parent (current-local-map) widget-keymap))
   (make-local-variable 'epa-list-keys-arguments)
-  (setq epa-list-keys-arguments (list name mode protocol))
+  (setq epa-list-keys-arguments (list name mode))
   (goto-char (point-min))
   (pop-to-buffer (current-buffer)))