576 |
(cadar smime-keys) |
(cadar smime-keys) |
577 |
(smime-get-key-by-email |
(smime-get-key-by-email |
578 |
(gnus-completing-read-maybe-default |
(gnus-completing-read-maybe-default |
579 |
(concat "Decipher using which key? " |
(concat "Decipher using key" |
580 |
(if smime-keys (concat "(default " (caar smime-keys) ") ") |
(if smime-keys |
581 |
"")) |
(concat " (default " (caar smime-keys) "): ") |
582 |
|
": ")) |
583 |
smime-keys nil nil nil nil (car-safe (car-safe smime-keys)))))) |
smime-keys nil nil nil nil (car-safe (car-safe smime-keys)))))) |
584 |
(goto-char (point-min)) |
(goto-char (point-min)) |
585 |
(while (search-forward "\r\n" nil t) |
(while (search-forward "\r\n" nil t) |