Commit 83c3a61e authored by Oleh Krehel's avatar Oleh Krehel

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.
parent 33ea72eb
Pipeline #1881 failed with stage
in 3 seconds
...@@ -4593,10 +4593,12 @@ This function could be useful in `message-setup-hook'." ...@@ -4593,10 +4593,12 @@ This function could be useful in `message-setup-hook'."
(message-insert-courtesy-copy (message-insert-courtesy-copy
(with-current-buffer mailbuf (with-current-buffer mailbuf
message-courtesy-message))) message-courtesy-message)))
;; Let's make sure we encoded all the body. ;; If this was set, let `sendmail-program' handle the Unicode
(cl-assert (save-excursion (unless message-inhibit-body-encoding
(goto-char (point-min)) ;; Let's make sure we encoded all the body.
(not (re-search-forward "[^\000-\377]" nil t)))) (cl-assert (save-excursion
(goto-char (point-min))
(not (re-search-forward "[^\000-\377]" nil t)))))
(mm-disable-multibyte) (mm-disable-multibyte)
(if (or (not message-send-mail-partially-limit) (if (or (not message-send-mail-partially-limit)
(< (buffer-size) message-send-mail-partially-limit) (< (buffer-size) message-send-mail-partially-limit)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment