emacs: Mark the quoted region during reply.

Mark the quoted region of text during a reply, making it easy for the
user to delete it quickly.
This commit is contained in:
David Edmondson 2012-01-06 10:03:40 +00:00 committed by David Bremner
parent a74ec0edd6
commit 03146f2013

View file

@ -108,7 +108,8 @@ list."
(if (re-search-backward message-signature-separator nil t) (if (re-search-backward message-signature-separator nil t)
(forward-line -1) (forward-line -1)
(goto-char (point-max))) (goto-char (point-max)))
(insert body)) (insert body)
(push-mark))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(message-goto-body)) (message-goto-body))