diff options
| -rw-r--r-- | lisp/gnus/mml2015.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el index 60fddedf899..ca9b3777c35 100644 --- a/lisp/gnus/mml2015.el +++ b/lisp/gnus/mml2015.el | |||
| @@ -487,14 +487,17 @@ If set, it overrides the setting of `mml2015-sign-with-sender'." | |||
| 487 | (or (y-or-n-p "Sign the message? ") | 487 | (or (y-or-n-p "Sign the message? ") |
| 488 | 'not)))) | 488 | 'not)))) |
| 489 | 'never))) | 489 | 'never))) |
| 490 | (mm-with-unibyte-current-buffer | 490 | (insert |
| 491 | (mc-encrypt-generic | 491 | (with-temp-buffer |
| 492 | (or (message-options-get 'message-recipients) | 492 | (set-buffer-multibyte nil) |
| 493 | (message-options-set 'message-recipients | 493 | (mc-encrypt-generic |
| 494 | (mc-cleanup-recipient-headers | 494 | (or (message-options-get 'message-recipients) |
| 495 | (read-string "Recipients: ")))) | 495 | (message-options-set 'message-recipients |
| 496 | nil nil nil | 496 | (mc-cleanup-recipient-headers |
| 497 | (message-options-get 'message-sender)))) | 497 | (read-string "Recipients: ")))) |
| 498 | nil nil nil | ||
| 499 | (message-options-get 'message-sender)) | ||
| 500 | (buffer-string)))) | ||
| 498 | (goto-char (point-min)) | 501 | (goto-char (point-min)) |
| 499 | (unless (looking-at "-----BEGIN PGP MESSAGE-----") | 502 | (unless (looking-at "-----BEGIN PGP MESSAGE-----") |
| 500 | (error "Fail to encrypt the message")) | 503 | (error "Fail to encrypt the message")) |