From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64375 Path: news.gmane.org!not-for-mail From: Daiki Ueno Newsgroups: gmane.emacs.gnus.general Subject: Re: epg and expired recipient keys Date: Tue, 06 Mar 2007 13:40:27 +0900 Message-ID: <9f9dd1e8-51d1-4655-9c4a-b2220dc22f87@well-done.deisui.org> References: <87649ro899.fsf@wheatstone.g10code.de> <87y7mlgl9f.fsf@wheatstone.g10code.de> <56d409a7-d8c0-4e74-be44-824f942fd4e5@well-done.deisui.org> <87zm71f0sl.fsf@wheatstone.g10code.de> <867itvcdve.fsf@hondo.cadr.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII X-Trace: sea.gmane.org 1173156052 15674 80.91.229.12 (6 Mar 2007 04:40:52 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 6 Mar 2007 04:40:52 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M12899@lists.math.uh.edu Tue Mar 06 05:40:45 2007 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1HORTh-0003h6-3P for ding-account@gmane.org; Tue, 06 Mar 2007 05:40:45 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1HORTd-00042R-9d; Mon, 05 Mar 2007 22:40:41 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1HORTb-000428-IK for ding@lists.math.uh.edu; Mon, 05 Mar 2007 22:40:39 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.63) (envelope-from ) id 1HORTV-0004dM-Fx for ding@lists.math.uh.edu; Mon, 05 Mar 2007 22:40:39 -0600 Original-Received: from g96069.scn-net.ne.jp ([210.231.96.69] helo=well-done.deisui.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1HORTU-0002oJ-00 for ; Tue, 06 Mar 2007 05:40:32 +0100 Original-Received: from [150.82.173.223] (helo=well-done.deisui.org) by well-done.deisui.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.63) (envelope-from ) id 1HORTR-0001sE-8Z for ding@gnus.org; Tue, 06 Mar 2007 13:40:29 +0900 X-Attribution: DU Mail-Copies-To: poster In-Reply-To: <867itvcdve.fsf@hondo.cadr.de> (Wolfram Fenske's message of "Tue, 06 Mar 2007 03:19:49 +0100") X-Spam-Score: -2.0 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:64375 Archived-At: >>>>> In <867itvcdve.fsf@hondo.cadr.de> >>>>> Wolfram Fenske wrote: > > (defun mml2015-epg-find-usable-key (keys usage) > > (catch 'found > > (while keys > > (let ((pointer (epg-key-sub-key-list (car keys)))) > > (while pointer > > (if (and (memq usage (epg-sub-key-capability (car pointer))) > > (not (memq (epg-sub-key-validity (car pointer)) > > '(revoked expired)))) > > (throw 'found (car keys))) > > (setq pointer (cdr pointer)))) > > (setq keys (cdr keys))))) > How about a version that uses the "dolist" macro? I think this makes > the code a lot clearer. Plus, it's shorter. I know. However, while-loop looks not so unreadable for me that we have to rewrite it with dolist. Regards, -- Daiki Ueno