* pgg.el (pgg-verify-region): Use it.

* pgg-def.el (pgg-query-keyserver): New variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1204c4c..005e8f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-10-10  Simon Josefsson  <jas@extundo.com>
 
+       * pgg.el (pgg-verify-region): Use it.
+
+       * pgg-def.el (pgg-query-keyserver): New variable.
+
        * pgg.el (pgg-decrypt-region): Bind pgg-default-user-id to
        key-identifier in packet.  Is this a good idea?
 

diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el
index 7630f95..8ada737 100644 (file)
--- a/lisp/pgg-def.el
+++ b/lisp/pgg-def.el
@@ -48,6 +48,11 @@
   :group 'pgg
   :type 'string)
 
+(defcustom pgg-query-keyserver nil
+  "Whether PGG queries keyservers for missing keys when verifying messages."
+  :group 'pgg
+  :type 'boolean)
+
 (defcustom pgg-encrypt-for-me nil
   "If t, encrypt all outgoing messages with user's public key."
   :group 'pgg

diff --git a/lisp/pgg.el b/lisp/pgg.el
index 5b0db55..e3611c9 100644 (file)
--- a/lisp/pgg.el
+++ b/lisp/pgg.el
@@ -225,6 +225,7 @@ signer's public key from `pgg-default-keyserver-address'."
         (key (cdr (assq 'key-identifier packet)))
         status keyserver)
     (and (stringp key)
+        pgg-query-keyserver
         (setq key (concat "0x" (pgg-truncate-key-identifier key)))
         (null (pgg-lookup-key key))
         (or fetch (interactive-p))