summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-08-20 02:06:31 +0000
committerRichard M. Stallman <rms@gnu.org>1997-08-20 02:06:31 +0000
commit553cc77882348400dadc9d3581951c6a26670760 (patch)
tree7061f3fa9d8ec5aad97042b0ca5e0b4cf7ee0fb2 /lisp/mail
parent104c815a3453d06e4d128fa1df2bbf4f709c57ff (diff)
downloademacs-553cc77882348400dadc9d3581951c6a26670760.tar.gz
(mail-yank-original): Bind mark-even-if-inactive
around the indentation and citation hooks code. (mail-send-nonascii): Make the default t.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/sendmail.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 55750ca03c2..9437cf2542a 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -178,7 +178,9 @@ The functions \\[mail-send-on-exit] or \\[mail-dont-send] select
the RMAIL summary buffer before returning, if it exists and this variable
is non-nil.")
-(defvar mail-send-nonascii 'query
+;; I find that this happens so often, for innocent reasons,
+;; that it is not acceptable to bother the user about it -- rms.
+(defvar mail-send-nonascii t
"*Specify whether to allow sending non-ASCII characters in mail.
If t, that means do allow it. nil means don't allow it.
`query' means ask the user each time.
@@ -1077,7 +1079,8 @@ and don't delete any header fields."
nil
(goto-char start)
(let ((mail-indentation-spaces (if arg (prefix-numeric-value arg)
- mail-indentation-spaces)))
+ mail-indentation-spaces))
+ (mark-even-if-inactive t))
(if mail-citation-hook
(run-hooks 'mail-citation-hook)
(if mail-yank-hooks