(gnus-output-to-rmail): adjust to

`rmail-output-to-rmail-file'

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 3d75515dfeb..ee863a01cc3 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -755,10 +755,12 @@ with potentially long computations."
             (when msg
               (goto-char (point-min))
               (widen)
-              (search-backward "\^_")
+              (search-backward "\n\^_")
               (narrow-to-region (point) (point-max))
-              (goto-char (1+ (point-min)))
               (rmail-count-new-messages t)
+              (if (rmail-summary-exists)
+                  (rmail-select-summary
+                   (rmail-update-summary)))
               (rmail-show-message msg))))))
     (kill-buffer tmpbuf)))