From: ueno <ueno>
Date: Sat, 1 Jul 2006 11:21:51 +0000 (+0000)
Subject: * epa.el (epa-select-keys): If SECRET is specified, select a
X-Git-Tag: epg-0_0_4~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=78872ff5c54d5315c90da7cf87c6f8e0c80df425;p=elisp%2Fepg.git

* epa.el (epa-select-keys): If SECRET is specified, select a
primary secret key by default.
This commit is a result of hacks at the CodeFest Akihabara 2006 hosted by FSIJ.
---

diff --git a/ChangeLog b/ChangeLog
index 6bbb536..e1a2aab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-01  Daiki Ueno  <ueno@unixuser.org>
+
+	* epa.el (epa-select-keys): If SECRET is specified, select a
+	primary secret key by default.
+
 2006-06-29  Daiki Ueno  <ueno@unixuser.org>
 
 	* EasyPG: Version 0.0.3 released.
diff --git a/epa.el b/epa.el
index 27b0dc0..aae2313 100644
--- a/epa.el
+++ b/epa.el
@@ -388,7 +388,13 @@ If SECRET is non-nil, list secret keys instead of public keys."
 	    (epa-mark)
 	    (goto-char (point-max))
 	    (setq names (cdr names)))
-	(epa-insert-keys context nil secret))
+	(if secret
+	    (progn
+	      (setq point (point))
+	      (epa-insert-keys context nil secret)
+	      (goto-char point)
+	      (epa-mark))
+	  (epa-insert-keys context nil nil)))
       (epa-keys-mode)
       (setq epa-exit-buffer-function #'abort-recursive-edit)
       (goto-char (point-min))