From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64359
Path: news.gmane.org!not-for-mail
From: Daiki Ueno <ueno@unixuser.org>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: epg and expired recipient keys
Date: Thu, 01 Mar 2007 07:23:26 +0900
Message-ID: <a62f61ff-ae93-415e-a50b-93c5679f4409@well-done.deisui.org>
References: <x61wkh6n8i.fsf@aix.cs.uni-magdeburg.de>
 <87649ro899.fsf@wheatstone.g10code.de> <smutzxbtsam.fsf@linuxpal.mit.edu>
 <87y7mlgl9f.fsf@wheatstone.g10code.de>
 <56d409a7-d8c0-4e74-be44-824f942fd4e5@well-done.deisui.org>
 <87zm71f0sl.fsf@wheatstone.g10code.de>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
X-Trace: sea.gmane.org 1172701457 1568 80.91.229.12 (28 Feb 2007 22:24:17 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Wed, 28 Feb 2007 22:24:17 +0000 (UTC)
Cc: ding@gnus.org
To: Werner Koch <wk@gnupg.org>
Original-X-From: ding-owner+M12883@lists.math.uh.edu Wed Feb 28 23:24:09 2007
Return-path: <ding-owner+M12883@lists.math.uh.edu>
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 1HMXDU-0007kq-KK
	for ding-account@gmane.org; Wed, 28 Feb 2007 23:24:08 +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 <ding-owner+M12883@lists.math.uh.edu>)
	id 1HMXD3-0002Z1-Id; Wed, 28 Feb 2007 16:23: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 <ueno@unixuser.org>)
	id 1HMXD2-0002Yf-6A
	for ding@lists.math.uh.edu; Wed, 28 Feb 2007 16:23:40 -0600
Original-Received: from quimby.gnus.org ([80.91.231.51])
	by mx1.math.uh.edu with esmtp (Exim 4.63)
	(envelope-from <ueno@unixuser.org>)
	id 1HMXCw-0001F4-BS
	for ding@lists.math.uh.edu; Wed, 28 Feb 2007 16:23:40 -0600
Original-Received: from 221x255x76x220.ap221.ftth.ucom.ne.jp
	([221.255.76.220] helo=localhost ident=Debian-exim)
	by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian))
	id 1HMXCu-0000Sj-00
	for <ding@gnus.org>; Wed, 28 Feb 2007 23:23:33 +0100
Original-Received: from localhost
	([127.0.0.1] helo=well-done.deisui.org ident=ueno)
	by localhost with esmtp (Exim 4.63)
	(envelope-from <ueno@unixuser.org>)
	id 1HMXCo-0002v5-TC; Thu, 01 Mar 2007 07:23:26 +0900
X-Attribution: DU
Mail-Copies-To: poster
In-Reply-To: <87zm71f0sl.fsf@wheatstone.g10code.de> (Werner Koch's message of
 "Mon, 26 Feb 2007 15:31:22 +0100")
X-Spam-Score: -2.6 (--)
List-ID: <ding.gnus.org>
Precedence: bulk
Xref: news.gmane.org gmane.emacs.gnus.general:64359
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.general/64359>

>>>>> In <87zm71f0sl.fsf@wheatstone.g10code.de> 
>>>>>	Werner Koch <wk@gnupg.org> wrote:
> > I'm now wondering whether to exclude unusable keys from the key list

> Yes, please do this when encrypting.

Okay, I just installed this in Gnus CVS.  The filter function is

(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)))))

Regards,
-- 
Daiki Ueno