diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-16 10:47:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-16 10:47:27 +0000 |
| commit | f8e3b95a13577b1978c1559b8ff4d9aab18ef109 (patch) | |
| tree | b55274b4440d5034d96526442526dd2190e930ce /lisp/=gnus.el | |
| parent | aa7f1d2811a7c9b890665472e4cef70c9ddf0bb9 (diff) | |
| download | emacs-f8e3b95a13577b1978c1559b8ff4d9aab18ef109.tar.gz | |
(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.
Diffstat (limited to 'lisp/=gnus.el')
| -rw-r--r-- | lisp/=gnus.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/=gnus.el b/lisp/=gnus.el index 0ef9d1fe7c1..3d72dfcae11 100644 --- 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) ))) |