From a9d6e49639324a281c6745189bc8301460112ef5 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 25 Sep 1998 17:00:25 +0000 Subject: [PATCH] (gnus-output-to-rmail): adjust to `rmail-output-to-rmail-file' --- lisp/gnus/gnus-util.el | 6 ++++-- 1 file 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))) -- 2.39.2