From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 20 Feb 1997 05:50:19 +0000 (+0000)
Subject: (sendmail-coding-system): New variable.
X-Git-Tag: emacs-20.1~2932
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee0a4f29f9a0269a72aa3ca4d2e37376e1623394;p=emacs.git

(sendmail-coding-system): New variable.
(sendmail-send-it): Perform code conversion on sending mail
according to sendmail-coding-system.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 0f697450c5a..89fcfa2f478 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -551,6 +551,9 @@ the user from the mailer."
 ;; 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 @@ the user from the mailer."
 		(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)