Mercurial > emacs
changeset 22865:df59ef00f1e4
(mail-yank-region): Bind mark-even-if-inactive to t.
(mail-yank-original was similarly changed, a few versions ago.)
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 01 Aug 1998 19:11:15 +0000 |
| parents | da331c0f1092 |
| children | 011361a15bac |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Sat Aug 01 19:04:28 1998 +0000 +++ b/lisp/mail/sendmail.el Sat Aug 01 19:11:15 1998 +0000 @@ -1183,6 +1183,8 @@ (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 (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))))