Mercurial > emacs

changeset 20727:480d3121ae14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sendmail-coding-system): Doc-string modified. (sendmail-send-it): Select a safe coding system to encode an outgoing mail.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:41:59 +0000
parents 711aeb8dff36
children a47662abcc23
files lisp/mail/sendmail.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Thu Jan 22 01:41:18 1998 +0000
+++ b/lisp/mail/sendmail.el	Thu Jan 22 01:41:59 1998 +0000
@@ -606,7 +606,7 @@
 
 ;;;###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 @@
 	   (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)