(mail-send): Obey mail-send-nonascii when

enable-multibyte-characters = nil.  From Hallvard B Furuseth
<h.b.furuseth@usit.uio.no>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78e55abd49110ec4cd15c367e850a0b833c557ab..3701e88ae09a695cbf57c41fd7e0fe6416f170d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-10  Gerd Moellmann  <gerd@gnu.org>
+
+       * mail/sendmail.el (mail-send): Obey mail-send-nonascii when
+       enable-multibyte-characters = nil.  From Hallvard B Furuseth
+       <h.b.furuseth@usit.uio.no>.
+       
 2001-09-09  Michael Kifer  <kifer@cs.sunysb.edu>
        
        * ediff-init.el (ediff-highest-priority): bug fix.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 05d05d6074cd4e69e5f58d8cdcfe890a1d216105..3826a1bac92f5ffac652ffb1046cb4aaa5cf01d0 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -730,8 +730,7 @@ the user from the mailer."
            (y-or-n-p "Message already sent; resend? ")))
       (let ((inhibit-read-only t)
            (opoint (point)))
-       (when (and enable-multibyte-characters
-                  (not (memq mail-send-nonascii '(t mime))))
+       (unless (memq mail-send-nonascii '(t mime))
          (goto-char (point-min))
          (skip-chars-forward "\0-\177")
          (or (= (point) (point-max))