diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-18 19:21:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-18 19:21:13 +0000 |
| commit | 3c280f4819466cbd830d703b6a63cfb21bcf6165 (patch) | |
| tree | 40328338e8951cb1e2eb60d650a750694f006f14 /lisp | |
| parent | fcf8ba158488458c58e8866239d8516547c97459 (diff) | |
| download | emacs-3c280f4819466cbd830d703b6a63cfb21bcf6165.tar.gz | |
(mail-yank-original): In Transient Mark mode,
don't get error and don't activate the mark.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/sendmail.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index bfb02c44a1b..94f6046b44f 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -565,16 +565,20 @@ and don't delete any header fields." (insert-buffer mail-reply-buffer) (if (consp arg) nil - (mail-yank-clear-headers start (mark)) + (mail-yank-clear-headers start (mark t)) (if (null mail-yank-prefix) - (indent-rigidly start (mark) + (indent-rigidly start (mark t) (if arg (prefix-numeric-value arg) 3)) (save-excursion (goto-char start) - (while (< (point) (mark)) + (while (< (point) (mark t)) (insert mail-yank-prefix) (forward-line 1))))) - (exchange-point-and-mark) + ;; This is like exchange-point-and-mark, but doesn't activate the mark. + ;; It is cleaner to avoid activation, even though the command + ;; loop would deactivate the mark because we inserted text. + (goto-char (prog1 (mark t) + (set-marker (mark-marker) (point) (current-buffer)))) (if (not (eolp)) (insert ?\n))))) (defun mail-yank-clear-headers (start end) |