* pgg-epg.el (pgg-epg-sign-region): Select the signing key matched

with pgg-default-user-id.

diff --git a/ChangeLog b/ChangeLog
index e1a2aab..2ba6ab3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-04  Daiki Ueno  <ueno@unixuser.org>
+
+       * pgg-epg.el (pgg-epg-sign-region): Select the signing key matched
+       with pgg-default-user-id.
+
 2006-07-01  Daiki Ueno  <ueno@unixuser.org>
 
        * epa.el (epa-select-keys): If SECRET is specified, select a

diff --git a/pgg-epg.el b/pgg-epg.el
index 27b6e42..224535e 100644 (file)
--- a/pgg-epg.el
+++ b/pgg-epg.el
@@ -152,6 +152,9 @@ passphrase cache or user."
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
     (epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback)
+    (epg-context-set-signers
+     context
+     (list (car (epg-list-keys context pgg-default-user-id t))))
     (save-excursion
       (set-buffer (get-buffer-create pgg-output-buffer))
       (erase-buffer)