diff options
| author | Daiki Ueno <ueno@unixuser.org> | 2011-10-17 04:29:19 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-10-17 04:29:19 +0000 |
| commit | 344465fd3b73502ea266e1009e99be93600d812f (patch) | |
| tree | a9d82dfa751db2bc0813dfadb28a3f25d135394b /lisp/gnus/mml2015.el | |
| parent | 21fedf28e5c59fd17e846f4b8abcbb223ae5ed90 (diff) | |
| download | emacs-344465fd3b73502ea266e1009e99be93600d812f.tar.gz | |
Merge changes made in Gnus trunk.
mml2015.el (mml2015-epg-find-usable-key): Skip the whole key if the primary key is marked as disabled.
mml1991.el (mml1991-epg-find-usable-key): Ditto. Thanks to Christian von Roques <roques@mti.ag>.
Diffstat (limited to 'lisp/gnus/mml2015.el')
| -rw-r--r-- | lisp/gnus/mml2015.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el index b9310beed58..028955a8c33 100644 --- a/lisp/gnus/mml2015.el +++ b/lisp/gnus/mml2015.el @@ -788,13 +788,16 @@ If set, it overrides the setting of `mml2015-sign-with-sender'." (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 'disabled (epg-sub-key-capability (car pointer)))) - (not (memq (epg-sub-key-validity (car pointer)) - '(revoked expired)))) - (throw 'found (car keys))) - (setq pointer (cdr pointer)))) + ;; The primary key will be marked as disabled, when the entire + ;; key is disabled (see 12 Field, Format of colon listings, in + ;; gnupg/doc/DETAILS) + (unless (memq 'disabled (epg-sub-key-capability (car pointer))) + (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))))) ;; XXX: since gpg --list-secret-keys does not return validity of each |