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? ") |