mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(sendmail-coding-system): New variable.

Browse Source 
(sendmail-send-it): Perform code conversion on sending mail
according to sendmail-coding-system.
This commit is contained in:
Karl Heuer 1997-02-20 05:50:19 +00:00
parent 79501c8dd3
commit ee0a4f29f9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/sendmail.el
View File

@ -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)