From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64377 Path: news.gmane.org!not-for-mail From: Wolfram Fenske Newsgroups: gmane.emacs.gnus.general Subject: Re: epg and expired recipient keys Date: Tue, 06 Mar 2007 10:37:35 +0100 Message-ID: <86vehezp9c.fsf@hondo.cadr.de> 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> <9f9dd1e8-51d1-4655-9c4a-b2220dc22f87@well-done.deisui.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1173173928 12516 80.91.229.12 (6 Mar 2007 09:38:48 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 6 Mar 2007 09:38:48 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M12901@lists.math.uh.edu Tue Mar 06 10:38:41 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 1HOW7z-0005Fr-9y for ding-account@gmane.org; Tue, 06 Mar 2007 10:38:39 +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 1HOW7C-0005gt-99; Tue, 06 Mar 2007 03:37:50 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1HOW7B-0005gh-3p for ding@lists.math.uh.edu; Tue, 06 Mar 2007 03:37:49 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.63) (envelope-from ) id 1HOW74-0004qu-Nr for ding@lists.math.uh.edu; Tue, 06 Mar 2007 03:37:49 -0600 Original-Received: from mail.uni-magdeburg.de ([141.44.1.10]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1HOW73-0007Rv-00 for ; Tue, 06 Mar 2007 10:37:41 +0100 Original-Received: from sunny.urz.uni-magdeburg.de ([141.44.8.7]) by mail.uni-magdeburg.de with esmtp (EXIM Version 4.62) for id 1HOW6z-0004Q8-Hv; Tue, 06 Mar 2007 10:37:41 +0100 Original-Received: from hondo.cadr.de (pD9516314.dip0.t-ipconnect.de [217.81.99.20]) (authenticated bits=0) by sunny.urz.uni-magdeburg.de (8.12.10/8.12.10) with ESMTP id l269baQP023051 (version=TLSv1/SSLv3 cipher=EDH-RSA-DES-CBC3-SHA bits=168 verify=NO) for ; Tue, 6 Mar 2007 10:37:37 +0100 Mail-Followup-To: ding@gnus.org In-Reply-To: <9f9dd1e8-51d1-4655-9c4a-b2220dc22f87@well-done.deisui.org> (Daiki Ueno's message of "Tue, 06 Mar 2007 13:40:27 +0900") User-Agent: Gnus/5.1007 (Gnus v5.10.7) XEmacs/21.4.19 (berkeley-unix) X-Spam-Score: -3.9 (---) X-Spam-Report: ---- Start SpamAssassin results -3.9 points, 5.0 required; -1.8 ALL_TRUSTED Passed through trusted hosts only via SMTP -2.6 BAYES_00 BODY: Bayesian spam probability is 0 to 1% [score: 0.0000] 0.5 AWL AWL: From: address is in the auto white-list ---- End of SpamAssassin results X-Scan-Signature: 878ea66800a85e4403ab137cadaa637c X-Spam-Score: -2.5 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:64377 Archived-At: Daiki Ueno writes: >>>>>> 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. OK. It was just a thought. Maybe programming in Common Lisp has made me go soft. :-) -- Wolfram Fenske A: Yes. >Q: Are you sure? >>A: Because it reverses the logical flow of conversation. >>>Q: Why is top posting frowned upon?