* (gnus-inews-yank-articles): Save the beginning position of the yanked
authoryamaoka <yamaoka>
Fri, 22 Jan 1999 02:35:21 +0000 (02:35 +0000)
committeryamaoka <yamaoka>
Fri, 22 Jan 1999 02:35:21 +0000 (02:35 +0000)
articles -- apologize to SUTO-san, it has been supported in his original code,
but I didn't.

lisp/gnus-msg.el

index 59752ab..47b3946 100644 (file)
@@ -353,6 +353,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))
@@ -364,7 +365,9 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
                   '(References . message-fill-references)))
         (list (cons 'References
                     (mapconcat 'identity references " "))))
-       (backward-delete-char 1)))
+       (backward-delete-char 1))
+      (setq beg (mark t))
+      (pop-mark))
 
     (goto-char beg)))