Re: epg and expired recipient keys

[Michael Piotrowski <mxp@dynalabs.de>]

[-- Attachment #1: Type: text/plain, Size: 795 bytes --]

On 2007-02-26, 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.

I'm using the attached patch to epg.el to filter unusable keys.  I'm
checking for keys marked d, i, r, or e in `epg--list-keys-1'.  If you
want to browse unusable keys in `epa-list-keys' the filtering would
have to be implemented somewhere else, so maybe this is not the final
solution.  But it works for me and allows me to send encrypted
messages to people for whom there also expired keys in my keyring.
So, maybe it can be used as an example for a more comprehensive
implementation.

Greetings

-- 
Michael Piotrowski, M.A.                               <mxp@dynalabs.de>
Public key at <http://www.dynalabs.de/mxp/pubkey.txt>


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Filter unusable keys --]
[-- Type: text/x-patch, Size: 1497 bytes --]

Index: epg.el
===================================================================
RCS file: /cvs/root/epg/epg.el,v
retrieving revision 1.188
diff -C2 -r1.188 epg.el
*** epg.el	31 Jan 2007 03:27:46 -0000	1.188
--- epg.el	27 Feb 2007 11:14:01 -0000
***************
*** 1656,1660 ****
  			'("--fixed-list-mode"))
  		      (if name (list name))))
! 	keys string field index)
      (with-temp-buffer
        (apply #'call-process
--- 1656,1660 ----
  			'("--fixed-list-mode"))
  		      (if name (list name))))
! 	keys)
      (with-temp-buffer
        (apply #'call-process
***************
*** 1664,1677 ****
  	     nil (list t nil) nil args)
        (goto-char (point-min))
!       (while (re-search-forward "^[a-z][a-z][a-z]:.*" nil t)
! 	(setq keys (cons (make-vector 15 nil) keys)
! 	      string (match-string 0)
! 	      index 0
! 	      field 0)
! 	(while (eq index
! 		   (string-match "\\([^:]+\\)?:" string index))
! 	  (setq index (match-end 0))
! 	  (aset (car keys) field (match-string 1 string))
! 	  (setq field (1+ field))))
        (nreverse keys))))
  
--- 1664,1676 ----
  	     nil (list t nil) nil args)
        (goto-char (point-min))
!       (let ((line 0))
! 	(while (not (eobp))
! 	  (goto-line (incf line))
! 	  (let ((fields (split-string (buffer-substring (point)
! 							(point-at-eol))
! 				      ":" nil)))
! 	    (when (cddr fields)
! 	      (unless (string-match "[dire]" (second fields))
! 		(push (apply 'vector fields) keys))))))
        (nreverse keys))))