Mercurial > emacs
diff lisp/gnus/gnus-mule.el @ 24592:0174ec53341d
(gnus-mule-message-send-mail-function): Find a
coding system to encode the message by
select-message-coding-system.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 08 Apr 1999 02:34:12 +0000 |
parents | 15fc6acbae7a |
children |
line wrap: on
line diff
--- a/lisp/gnus/gnus-mule.el Thu Apr 08 01:42:50 1999 +0000 +++ b/lisp/gnus/gnus-mule.el Thu Apr 08 02:34:12 1999 +0000 @@ -177,8 +177,10 @@ ;; 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 ()