Mercurial > emacs
changeset 17013:d6ce795e84da
(sendmail-coding-system): New variable.
(sendmail-send-it): Perform code conversion on sending mail
according to sendmail-coding-system.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 20 Feb 1997 05:50:19 +0000 |
| parents | f1932b36f01d |
| children | 828cf55629fc |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Thu Feb 20 05:49:58 1997 +0000 +++ b/lisp/mail/sendmail.el Thu Feb 20 05:50:19 1997 +0000 @@ -551,6 +551,9 @@ ;; This does the real work of sending a message via sendmail. ;; It is called via the variable send-mail-function. +(defvar sendmail-coding-system 'coding-system-iso-2022-7 + "Coding system to which to encode the mail.") + (defun sendmail-send-it () (require 'mail-utils) (let ((errbuf (if mail-interactive @@ -691,7 +694,8 @@ (re-search-forward "^To:\\|^cc:\\|^bcc:\\|^resent-to:\ \\|^resent-cc:\\|^resent-bcc:" delimline t)) - (let ((default-directory "/")) + (let ((default-directory "/") + (coding-system-for-write sendmail-coding-system)) (apply 'call-process-region (append (list (point-min) (point-max) (if (boundp 'sendmail-program)