Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
24591:3b18314f27d6 | 24592:0174ec53341d |
---|---|
175 (if coding-system | 175 (if coding-system |
176 (encode-coding-region (point-min) (point-max) coding-system))))) | 176 (encode-coding-region (point-min) (point-max) coding-system))))) |
177 | 177 |
178 ;; Encode a mail message before sending it. | 178 ;; Encode a mail message before sending it. |
179 (defun gnus-mule-message-send-mail-function () | 179 (defun gnus-mule-message-send-mail-function () |
180 (if sendmail-coding-system | 180 (let ((coding (if enable-multibyte-characters |
181 (encode-coding-region (point-min) (point-max) sendmail-coding-system))) | 181 (select-message-coding-system)))) |
182 (if coding | |
183 (encode-coding-region (point-min) (point-max) coding)))) | |
182 | 184 |
183 ;;;###autoload | 185 ;;;###autoload |
184 (defun gnus-mule-initialize () | 186 (defun gnus-mule-initialize () |
185 "Do several settings for GNUS to enable automatic code conversion." | 187 "Do several settings for GNUS to enable automatic code conversion." |
186 ;; Convenient key definitions | 188 ;; Convenient key definitions |