diff options
| author | Richard M. Stallman | 1994-12-17 00:51:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-17 00:51:30 +0000 |
| commit | 396134d7a30fb9cef4ccd4e07d38681b84dc0821 (patch) | |
| tree | 511808d38d2de9edaecc883de6940063b11aa85a | |
| parent | 56eb270e3b1d9ee8ef6c87748372229b835b37a9 (diff) | |
| download | emacs-396134d7a30fb9cef4ccd4e07d38681b84dc0821.tar.gz emacs-396134d7a30fb9cef4ccd4e07d38681b84dc0821.zip | |
(gnus-mail-reply-using-mail): Don't save point;
yank the original at point.
| -rw-r--r-- | lisp/gnusmail.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/gnusmail.el b/lisp/gnusmail.el index b8f62346565..293bde54f4a 100644 --- a/lisp/gnusmail.el +++ b/lisp/gnusmail.el | |||
| @@ -99,11 +99,7 @@ Optional argument YANK means yank original article." | |||
| 99 | (news-mail-reply) | 99 | (news-mail-reply) |
| 100 | (gnus-overload-functions) | 100 | (gnus-overload-functions) |
| 101 | (if yank | 101 | (if yank |
| 102 | (let ((last (point))) | 102 | (mail-yank-original nil))) |
| 103 | (goto-char (point-max)) | ||
| 104 | (mail-yank-original nil) | ||
| 105 | (goto-char last) | ||
| 106 | ))) | ||
| 107 | 103 | ||
| 108 | (defun gnus-mail-forward-using-mail () | 104 | (defun gnus-mail-forward-using-mail () |
| 109 | "Forward the current message to another user using mail." | 105 | "Forward the current message to another user using mail." |