From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 1 Aug 1998 19:11:15 +0000 (+0000)
Subject: (mail-yank-region): Bind mark-even-if-inactive to t.
X-Git-Tag: emacs-20.3~214
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8761c2c46b673eae54d0fd6d97641e7d74c303dd;p=emacs.git

(mail-yank-region): Bind mark-even-if-inactive to t.
(mail-yank-original was similarly changed, a few versions ago.)
---

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