mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(mail-yank-original was similarly changed, a few versions ago.)
This commit is contained in:
Richard M. Stallman 1998-08-01 19:11:15 +00:00
parent 7c5e21ab08
commit 8761c2c46b
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/sendmail.el
View 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))))