From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62572 Path: news.gmane.org!not-for-mail From: Daiki Ueno Newsgroups: gmane.emacs.devel,gmane.emacs.gnus.general Subject: Bad usage of pgg-gpg-* functions in allout.el Date: Fri, 07 Apr 2006 18:43:27 +0900 Message-ID: References: <5451ce4a-1627-439f-9cba-308911539eae@well-done.deisui.org> <27877.1144257571@norvel.baumann-gauting.site> <87odze8tth.fsf@pacem.orebokech.com> <87zmiy7c6e.fsf@pacem.orebokech.com> <2cd46e7f0604061550j44c97f68v4c6cffda79a4e0ce@mail.gmail.com> <2595ece8-1a2b-48e5-a905-b37bd890ecae_-_@well-done.deisui.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII X-Trace: sea.gmane.org 1144403041 6137 80.91.229.2 (7 Apr 2006 09:44:01 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 7 Apr 2006 09:44:01 +0000 (UTC) Cc: ding@gnus.org, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Apr 07 11:44:00 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FRnVX-0000RW-1L for ged-emacs-devel@m.gmane.org; Fri, 07 Apr 2006 11:43:59 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FRnVW-00080D-Gl for ged-emacs-devel@m.gmane.org; Fri, 07 Apr 2006 05:43:58 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FRnVJ-000808-T8 for emacs-devel@gnu.org; Fri, 07 Apr 2006 05:43:45 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FRnVI-0007zw-95 for emacs-devel@gnu.org; Fri, 07 Apr 2006 05:43:45 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FRnVI-0007zt-4E for emacs-devel@gnu.org; Fri, 07 Apr 2006 05:43:44 -0400 Original-Received: from [210.231.96.69] (helo=well-done.deisui.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1FRnZD-00017X-L0 for emacs-devel@gnu.org; Fri, 07 Apr 2006 05:47:48 -0400 Original-Received: from [150.82.173.221] (helo=well-done.deisui.org) by well-done.deisui.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1FRnV4-00043g-LZ; Fri, 07 Apr 2006 18:43:30 +0900 Original-To: Ken Manheimer X-Attribution: DU In-Reply-To: Daiki Ueno's message of "Fri, 07 Apr 2006 17:09:40 +0900" User-Agent: T-gnus/6.17.2 (based on No Gnus v0.2) SEMI/1.14.6 (Maruoka) FLIM/1.14.7 (=?ISO-8859-4?Q?Sanj=F2?=) APEL/10.6 MULE XEmacs/21.4 (patch 17) (Jumbo Shrimp) (i686-pc-linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:52490 gmane.emacs.gnus.general:62572 Archived-At: >>>>> In <2595ece8-1a2b-48e5-a905-b37bd890ecae_-_@well-done.deisui.org> >>>>> Daiki Ueno wrote: > >>>>> In <2cd46e7f0604061550j44c97f68v4c6cffda79a4e0ce@mail.gmail.com> > >>>>> "Ken Manheimer" 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 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 " Regards, -- Daiki Ueno