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 |