diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-09-25 17:00:25 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-09-25 17:00:25 +0000 |
| commit | a9d6e49639324a281c6745189bc8301460112ef5 (patch) | |
| tree | 4b24467517a34e89a5a96f2841391f49d7838560 | |
| parent | ec0a2f45a2c603eac4f598019c6204bdeb9007c6 (diff) | |
| download | emacs-a9d6e49639324a281c6745189bc8301460112ef5.tar.gz | |
(gnus-output-to-rmail): adjust to
`rmail-output-to-rmail-file'
| -rw-r--r-- | lisp/gnus/gnus-util.el | 6 |
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))) |