]> git.eshelyaron.com Git - emacs.git/commitdiff
(mail-yank-region): Bind mark-even-if-inactive to t.
authorRichard M. Stallman <rms@gnu.org>
Sat, 1 Aug 1998 19:11:15 +0000 (19:11 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 1 Aug 1998 19:11:15 +0000 (19:11 +0000)
(mail-yank-original was similarly changed, a few versions ago.)

lisp/mail/sendmail.el

index 43185e8a071b04362c8425ccdefd0f9014bb8ef6..ad3e3355e679a79f29ac9e2f715c7222592cabdd 100644 (file)
@@ -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))))