diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-08-01 19:11:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-08-01 19:11:15 +0000 |
| commit | 8761c2c46b673eae54d0fd6d97641e7d74c303dd (patch) | |
| tree | d097fcedfe255dbf1f7f6e345719b5947ef15758 /lisp/mail | |
| parent | 7c5e21ab08528ec931485f05961c911be635f327 (diff) | |
| download | emacs-8761c2c46b673eae54d0fd6d97641e7d74c303dd.tar.gz | |
(mail-yank-region): Bind mark-even-if-inactive to t.
(mail-yank-original was similarly changed, a few versions ago.)
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 43185e8a071..ad3e3355e67 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1183,6 +1183,8 @@ and don't delete any header fields." (goto-char start) (let ((mail-indentation-spaces (if arg (prefix-numeric-value arg) mail-indentation-spaces)) + ;; Avoid error in Transient Mark mode + ;; on account of mark's being inactive. (mark-even-if-inactive t)) (if mail-citation-hook (run-hooks 'mail-citation-hook) @@ -1227,7 +1229,10 @@ and don't delete any header fields." (and (consp mail-reply-action) (eq (car mail-reply-action) 'insert-buffer) (let ((buffer (nth 1 mail-reply-action)) - (start (point))) + (start (point)) + ;; Avoid error in Transient Mark mode + ;; on account of mark's being inactive. + (mark-even-if-inactive t)) ;; Insert the citation text. (insert (with-current-buffer buffer (buffer-substring (point) (mark)))) |