(mail-yank-region): Bind mark-even-if-inactive to t.

(mail-yank-original was similarly changed, a few versions ago.)

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