diff options
| author | Oleh Krehel <ohwoeowho@gmail.com> | 2019-06-03 15:48:09 +0200 |
|---|---|---|
| committer | Oleh Krehel <ohwoeowho@gmail.com> | 2019-06-03 15:48:09 +0200 |
| commit | 83c3a61e4ca091580cafbabe34b54e4a9261ad16 (patch) | |
| tree | fdecf4664d5e514538cfdedae0b61a19203bc4b0 /lisp/gnus/message.el | |
| parent | 33ea72eb3c27f5ee5d76980d70ab335d7fa33db6 (diff) | |
| download | emacs-83c3a61e4ca091580cafbabe34b54e4a9261ad16.tar.gz | |
lisp/gnus/message.el (message-send-mail): Don't wrongly assert on Unicode msg
Using this setting:
(setq message-send-mail-function 'message-send-mail-with-sendmail)
(setq sendmail-program "msmtp")
the message seding is handled by an external program, so no Unicode
encoding is performed in Emacs. Thus Emacs must not assert that the
Unicode encoding was performed.
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 29a8f25f31f..adaaa7e5f21 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4593,10 +4593,12 @@ This function could be useful in `message-setup-hook'." (message-insert-courtesy-copy (with-current-buffer mailbuf message-courtesy-message))) - ;; Let's make sure we encoded all the body. - (cl-assert (save-excursion - (goto-char (point-min)) - (not (re-search-forward "[^\000-\377]" nil t)))) + ;; If this was set, let `sendmail-program' handle the Unicode + (unless message-inhibit-body-encoding + ;; Let's make sure we encoded all the body. + (cl-assert (save-excursion + (goto-char (point-min)) + (not (re-search-forward "[^\000-\377]" nil t))))) (mm-disable-multibyte) (if (or (not message-send-mail-partially-limit) (< (buffer-size) message-send-mail-partially-limit) |