# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 901998675 0
# Node ID df59ef00f1e485f4a7435b5d229abb903f3112ec
# Parent  da331c0f109215187e28df09eb31001e74bfc57b
(mail-yank-region): Bind mark-even-if-inactive to t.
(mail-yank-original was similarly changed, a few versions ago.)

diff -r da331c0f1092 -r df59ef00f1e4 lisp/mail/sendmail.el
--- 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))))