diff options
| author | Lars Ingebrigtsen | 2016-02-12 15:57:13 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-12 15:57:13 +1100 |
| commit | 2ffc32f50543fcd866b9dd97c28f964492835bb9 (patch) | |
| tree | 1b373ed1a2fabedfeb5253a4caa13b8b29dc0bd2 | |
| parent | a856a45292dda3123ffc6419735d43cefb126b85 (diff) | |
| download | emacs-2ffc32f50543fcd866b9dd97c28f964492835bb9.tar.gz emacs-2ffc32f50543fcd866b9dd97c28f964492835bb9.zip | |
Don't use mm-with-unibyte-current-buffer in mml2015
* lisp/gnus/mml2015.el (mml2015-mailcrypt-encrypt): Don't use
mm-with-unibyte-current-buffer.
| -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")) |