From ecdc15465c70336650be9988d147c87dd82bae89 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 22 Jan 1999 02:36:30 +0000 Subject: [PATCH] * (gnus-inews-yank-articles): Save the beginning position of the yanked articles -- apologize to SUTO-san, it has been supported in his original code, but I didn't. --- lisp/gnus-msg.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index f72d759..a5080e2 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -397,6 +397,7 @@ If prefix argument YANK is non-nil, original article is yanked automatically." ;; Replace with the gathered references. (when references + (push-mark beg) (save-restriction (message-narrow-to-headers) (let ((case-fold-search t)) @@ -408,7 +409,9 @@ If prefix argument YANK is non-nil, original article is yanked automatically." '(References . message-shorten-references))) (list (cons 'References (mapconcat 'identity references " ")))) - (backward-delete-char 1))) + (backward-delete-char 1)) + (setq beg (mark t)) + (pop-mark)) (goto-char beg))) -- 1.7.10.4