From: yamaoka <yamaoka>
Date: Fri, 22 Jan 1999 02:36:30 +0000 (+0000)
Subject: * (gnus-inews-yank-articles): Save the beginning position of the yanked
X-Git-Tag: pgnus-ichikawa-199901221900~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ecdc15465c70336650be9988d147c87dd82bae89;p=elisp%2Fgnus.git-

* (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.
---

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)))