Commit 650c0524 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent cdc424a5
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> ;; 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 ;; Keywords: news
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -3824,8 +3824,14 @@ is initialized from the SAVEDIR environment variable." ...@@ -3824,8 +3824,14 @@ is initialized from the SAVEDIR environment variable."
") ") ") ")
(file-name-directory default-name) (file-name-directory default-name)
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)) (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. ;; Remember the directory name to save articles.
(setq gnus-newsgroup-last-mail filename) (setq gnus-newsgroup-last-mail filename)
))) )))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment