Mercurial > emacs

diff lisp/gnus/mml2015.el @ 108294:023a01688e8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Skip disabled PGP key when encrypting mail with Gnus. * lisp/epg.el (epg-key-capablity-alist): Add "D" flag (Bug#5592). * lisp/gnus/mml2015.el (mml2015-epg-find-usable-key): Skip disabled key (Bug#5592).
author Daiki Ueno <ueno@unixuser.org>
date Fri, 07 May 2010 17:10:28 +0900
parents ecbe0edc4f69
children de6d3e5f8e8e
line wrap: on
line diff
--- a/lisp/gnus/mml2015.el	Fri May 07 07:43:41 2010 +0000
+++ b/lisp/gnus/mml2015.el	Fri May 07 17:10:28 2010 +0900
@@ -1021,6 +1021,7 @@
       (let ((pointer (epg-key-sub-key-list (car keys))))
 	(while pointer
 	  (if (and (memq usage (epg-sub-key-capability (car pointer)))
+		   (not (memq 'disabled (epg-sub-key-capability (car pointer))))
 		   (not (memq (epg-sub-key-validity (car pointer))
 			      '(revoked expired))))
 	      (throw 'found (car keys)))