Mercurial > emacs
comparison lisp/mail/sendmail.el @ 39224:cd06bcf39556
(mail-send): Obey mail-send-nonascii when
enable-multibyte-characters = nil. From Hallvard B Furuseth
<h.b.furuseth@usit.uio.no>.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 10 Sep 2001 09:36:40 +0000 |
parents | 0c180a4e348d |
children | 8c3457d1371c |
comparison
equal
deleted
inserted
replaced
39223:df60bdec51d7 | 39224:cd06bcf39556 |
---|---|
728 (y-or-n-p "Send buffer contents as mail message? ") | 728 (y-or-n-p "Send buffer contents as mail message? ") |
729 (or (buffer-modified-p) | 729 (or (buffer-modified-p) |
730 (y-or-n-p "Message already sent; resend? "))) | 730 (y-or-n-p "Message already sent; resend? "))) |
731 (let ((inhibit-read-only t) | 731 (let ((inhibit-read-only t) |
732 (opoint (point))) | 732 (opoint (point))) |
733 (when (and enable-multibyte-characters | 733 (unless (memq mail-send-nonascii '(t mime)) |
734 (not (memq mail-send-nonascii '(t mime)))) | |
735 (goto-char (point-min)) | 734 (goto-char (point-min)) |
736 (skip-chars-forward "\0-\177") | 735 (skip-chars-forward "\0-\177") |
737 (or (= (point) (point-max)) | 736 (or (= (point) (point-max)) |
738 (if (eq mail-send-nonascii 'query) | 737 (if (eq mail-send-nonascii 'query) |
739 (or (y-or-n-p "Message contains non-ASCII characters; send anyway? ") | 738 (or (y-or-n-p "Message contains non-ASCII characters; send anyway? ") |