From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 25 Sep 1998 17:00:25 +0000 (+0000)
Subject: (gnus-output-to-rmail):  adjust to
X-Git-Tag: emacs-20.4~1630
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9d6e49639324a281c6745189bc8301460112ef5;p=emacs.git

(gnus-output-to-rmail):  adjust to
`rmail-output-to-rmail-file'
---

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