diff options
Diffstat (limited to 'lisp/gnus/mml-sec.el')
| -rw-r--r-- | lisp/gnus/mml-sec.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index 700a99fe5d8..85b7d3a879c 100644 --- a/lisp/gnus/mml-sec.el +++ b/lisp/gnus/mml-sec.el | |||
| @@ -939,7 +939,7 @@ If no one is selected, symmetric encryption will be performed. " | |||
| 939 | mml-secure-secret-key-id-list nil) | 939 | mml-secure-secret-key-id-list nil) |
| 940 | (error | 940 | (error |
| 941 | (mml-secure-clear-secret-key-id-list) | 941 | (mml-secure-clear-secret-key-id-list) |
| 942 | (signal (car error) (cdr error)))) | 942 | (signal error))) |
| 943 | cipher)) | 943 | cipher)) |
| 944 | 944 | ||
| 945 | (defun mml-secure-sender-sign-query (protocol sender) | 945 | (defun mml-secure-sender-sign-query (protocol sender) |
| @@ -1029,7 +1029,7 @@ Returns non-nil if the user has chosen to use SENDER." | |||
| 1029 | mml-secure-secret-key-id-list nil) | 1029 | mml-secure-secret-key-id-list nil) |
| 1030 | (error | 1030 | (error |
| 1031 | (mml-secure-clear-secret-key-id-list) | 1031 | (mml-secure-clear-secret-key-id-list) |
| 1032 | (signal (car error) (cdr error)))) | 1032 | (signal error))) |
| 1033 | (if (epg-context-result-for context 'sign) | 1033 | (if (epg-context-result-for context 'sign) |
| 1034 | (setq micalg (epg-new-signature-digest-algorithm | 1034 | (setq micalg (epg-new-signature-digest-algorithm |
| 1035 | (car (epg-context-result-for context 'sign))))) | 1035 | (car (epg-context-result-for context 'sign))))) |