(gnus-summary-save-in-mail): Don't use rmail-output.

Instead, use either gnus-output-to-rmail or gnus-output-to-file.
Expand filename before use.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 0ef9d1fe7c18079832664334256a7c622a9b4b4a..3d72dfcae1169e33afceda13cf46ea4da1fd9e54 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2,7 +2,7 @@
 ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc.
 
 ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
-;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.27 1993/08/10 04:14:17 eggert Exp rms $
+;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.28 1993/11/15 01:06:24 rms Exp rms $
 ;; Keywords: news
 
 ;; This file is part of GNU Emacs.
@@ -3824,8 +3824,14 @@ is initialized from the SAVEDIR environment variable."
                             ") ")
                     (file-name-directory default-name)
                     default-name)))
+         (setq filename
+               (expand-file-name filename
+                                 (and default-name
+                                      (file-name-directory default-name))))
          (gnus-make-directory (file-name-directory filename))
-         (rmail-output filename 1 t t)
+         (if (and (file-readable-p filename) (rmail-file-p filename))
+             (gnus-output-to-rmail filename)
+           (gnus-output-to-file filename))
          ;; Remember the directory name to save articles.
          (setq gnus-newsgroup-last-mail filename)
          )))