81 |
(list 'keyfile |
(list 'keyfile |
82 |
(if (= (length smime-keys) 1) |
(if (= (length smime-keys) 1) |
83 |
(cadar smime-keys) |
(cadar smime-keys) |
84 |
(or (let ((from (cadr (funcall gnus-extract-address-components |
(or (let ((from (cadr (funcall (if (boundp |
85 |
|
'gnus-extract-address-components) |
86 |
|
gnus-extract-address-components |
87 |
|
'mail-extract-address-components) |
88 |
(or (save-excursion |
(or (save-excursion |
89 |
(save-restriction |
(save-restriction |
90 |
(message-narrow-to-headers) |
(message-narrow-to-headers) |
110 |
(while (not result) |
(while (not result) |
111 |
(setq who (read-from-minibuffer |
(setq who (read-from-minibuffer |
112 |
(format "%sLookup certificate for: " (or bad "")) |
(format "%sLookup certificate for: " (or bad "")) |
113 |
(cadr (funcall gnus-extract-address-components |
(cadr (funcall (if (boundp |
114 |
|
'gnus-extract-address-components) |
115 |
|
gnus-extract-address-components |
116 |
|
'mail-extract-address-components) |
117 |
(or (save-excursion |
(or (save-excursion |
118 |
(save-restriction |
(save-restriction |
119 |
(message-narrow-to-headers) |
(message-narrow-to-headers) |