From: Daiki Ueno <ueno@unixuser.org>
Cc: ding@gnus.org, emacs-devel@gnu.org
Subject: Bad usage of pgg-gpg-* functions in allout.el
Date: Fri, 07 Apr 2006 18:43:27 +0900 [thread overview]
Message-ID: <cdb6ab86-10cd-4852-9cf8-e8c3c4b297f5@well-done.deisui.org> (raw)
In-Reply-To: Daiki Ueno's message of "Fri, 07 Apr 2006 17:09:40 +0900"
>>>>> In <2595ece8-1a2b-48e5-a905-b37bd890ecae_-_@well-done.deisui.org>
>>>>> Daiki Ueno <ueno@unixuser.org> wrote:
> >>>>> In <2cd46e7f0604061550j44c97f68v4c6cffda79a4e0ce@mail.gmail.com>
> >>>>> "Ken Manheimer" <ken.manheimer@gmail.com> wrote:
> > thank you! allout's encryption seems to be working with your reversion.
> Aside from the reversion of pgg-gpg.el, when I looked into allout.el's
> encryption stuff, I found that 4 undocumented non-interface functions
> of pgg-gpg are used:
> pgg-gpg-lookup-key-owner
> pgg-gpg-lookup-key-owner needs to be implemented as an interface
> function. I'm now working on this.
>>>>> In <5451ce4a-1627-439f-9cba-308911539eae@well-done.deisui.org>
>>>>> Daiki Ueno <ueno@unixuser.org> wrote:
> Patch from Gnus' trunk is attached. Major changes are listed below.
> * Added new interface function pgg-list-keys. This function returns
> more information about keys than pgg-lookup-key. For example:
With this function, a function which does the same thing as
pgg-gpg-lookup-key-owner can be implemented.
(defun allout-lookup-key-owner (string &optional all)
"Search keys associated with STRING and return owner of identified key.
The value may be just the bare key id, or it may be a combination of the
user name associated with the key and the key id, with the key id enclosed
in \"<...>\" angle brackets.
Optional ALL non-nil means search all keys, including secret keys."
(let ((keys (pgg-gpg-list-keys string all))
entry)
(while keys
(setq entry (assq 'user-id (assq 'uid (car keys))))
(if entry
(setq keys nil)
(setq keys (cdr keys))))
(cdr entry)))
(allout-lookup-key-owner "ueno")
=> "Daiki Ueno <ueno@unixuser.org>"
Regards,
--
Daiki Ueno
prev parent reply other threads:[~2006-04-07 9:43 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <5451ce4a-1627-439f-9cba-308911539eae@well-done.deisui.org>
[not found] ` <27877.1144257571@norvel.baumann-gauting.site>
[not found] ` <87odze8tth.fsf@pacem.orebokech.com>
[not found] ` <v9sloqa6dn.fsf@marauder.physik.uni-ulm.de>
[not found] ` <87zmiy7c6e.fsf@pacem.orebokech.com>
[not found] ` <2cd46e7f0604061550j44c97f68v4c6cffda79a4e0ce@mail.gmail.com>
2006-04-07 3:46 ` Bad usage of pgg-gpg-* functions in allout.el Daiki Ueno
2006-04-07 9:43 ` Daiki Ueno [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=cdb6ab86-10cd-4852-9cf8-e8c3c4b297f5@well-done.deisui.org \
--to=ueno@unixuser.org \
--cc=ding@gnus.org \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).