From 1ce2a3422d1964150af24893b977fea6f415ccd0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 8 Apr 1999 02:34:12 +0000 Subject: [PATCH] (gnus-mule-message-send-mail-function): Find a coding system to encode the message by select-message-coding-system. --- lisp/gnus/gnus-mule.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-mule.el b/lisp/gnus/gnus-mule.el index 4d22cecc169..371b3dc8b17 100644 --- a/lisp/gnus/gnus-mule.el +++ b/lisp/gnus/gnus-mule.el @@ -177,8 +177,10 @@ coding-system for reading and writing respectively." ;; Encode a mail message before sending it. (defun gnus-mule-message-send-mail-function () - (if sendmail-coding-system - (encode-coding-region (point-min) (point-max) sendmail-coding-system))) + (let ((coding (if enable-multibyte-characters + (select-message-coding-system)))) + (if coding + (encode-coding-region (point-min) (point-max) coding)))) ;;;###autoload (defun gnus-mule-initialize () -- 2.39.2