diff options
| author | Gerd Moellmann | 2001-09-10 09:37:02 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-09-10 09:37:02 +0000 |
| commit | 42d305db926aaf8525bcc7624d2f50eeafd4ebc2 (patch) | |
| tree | 2e66e166fb89953a2ccccdf7a92701bdaf339662 | |
| parent | f4a374a158323825660f74abb70dbd6710524dd0 (diff) | |
| download | emacs-42d305db926aaf8525bcc7624d2f50eeafd4ebc2.tar.gz emacs-42d305db926aaf8525bcc7624d2f50eeafd4ebc2.zip | |
(mail-send): Obey mail-send-nonascii when
enable-multibyte-characters = nil. From Hallvard B Furuseth
<h.b.furuseth@usit.uio.no>.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/mail/sendmail.el | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 78e55abd491..3701e88ae09 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2001-09-10 Gerd Moellmann <gerd@gnu.org> | ||
| 2 | |||
| 3 | * mail/sendmail.el (mail-send): Obey mail-send-nonascii when | ||
| 4 | enable-multibyte-characters = nil. From Hallvard B Furuseth | ||
| 5 | <h.b.furuseth@usit.uio.no>. | ||
| 6 | |||
| 1 | 2001-09-09 Michael Kifer <kifer@cs.sunysb.edu> | 7 | 2001-09-09 Michael Kifer <kifer@cs.sunysb.edu> |
| 2 | 8 | ||
| 3 | * ediff-init.el (ediff-highest-priority): bug fix. | 9 | * ediff-init.el (ediff-highest-priority): bug fix. |
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 05d05d6074c..3826a1bac92 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -730,8 +730,7 @@ the user from the mailer." | |||
| 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)) |