* pgg-gpg.el (pgg-gpg-lookup-key-owner): Handle colon listings format

used by GnuPG 2.0.11.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b01a4724192989f06271f3ca4e4aae31299fd349..1b55b59d4b825f14d9f5e135935271c5e2823db5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-18  Ulrich Mueller  <ulm@gentoo.org>
+
+       * pgg-gpg.el (pgg-gpg-lookup-key-owner): Handle colon listings
+       format used by GnuPG 2.0.a11.
+
 2009-06-18  Glenn Morris  <rgm@gnu.org>
 
        * files.el (dir-locals-set-directory-class): Make mtime argument

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 032b3d5d2dac5829a11e287c0ffa058f39146ed7..b11b9284cd457ba6fac6a335e9a2bf49980fe2e8 100644 (file)
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -189,9 +189,9 @@ Optional ALL non-nil means search all keys, including secret keys."
   (let ((args (list "--with-colons" "--no-greeting" "--batch"
                    (if all "--list-secret-keys" "--list-keys")
                    string))
-       (key-regexp (concat "^\\(sec\\|pub\\)"
+       (key-regexp (concat "^\\(sec\\|pub\\|uid\\)"
                            ":[^:]*:[^:]*:[^:]*:\\([^:]*\\):[^:]*"
-                           ":[^:]*:[^:]*:[^:]*:\\([^:]*\\):")))
+                           ":[^:]*:[^:]*:[^:]*:\\([^:]+\\):")))
     (with-temp-buffer
       (apply #'call-process pgg-gpg-program nil t nil args)
       (goto-char (point-min))