From 5e7e990e1a0d66738d67d5131b8201afd642486a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 22 Jan 1998 01:41:59 +0000 Subject: [PATCH] (sendmail-coding-system): Doc-string modified. (sendmail-send-it): Select a safe coding system to encode an outgoing mail. --- lisp/mail/sendmail.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 4db6e9625ba..33795b0b5bf 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -606,7 +606,7 @@ the user from the mailer." ;;;###autoload (defvar sendmail-coding-system nil - "Coding system to which to encode the mail.") + "Coding system to encode the outgoing mail.") (defun sendmail-send-it () (require 'mail-utils) @@ -625,6 +625,10 @@ the user from the mailer." (or sendmail-coding-system default-buffer-file-coding-system 'iso-latin-1)))) + (if (fboundp select-safe-coding-system-function) + (setq sendmail-coding-system + (funcall select-safe-coding-system-function + (point-min) (point-max) sendmail-coding-system))) (unwind-protect (save-excursion (set-buffer tembuf) -- 2.39.2