andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
used by GnuPG 2.0.11.
This commit is contained in:
Chong Yidong 2009-06-18 17:47:48 +00:00
parent cf299835b1
commit f91e331380
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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> 2009-06-18 Glenn Morris <rgm@gnu.org>
* files.el (dir-locals-set-directory-class): Make mtime argument * files.el (dir-locals-set-directory-class): Make mtime argument

4
lisp/pgg-gpg.el
View file

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