mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
Instead, use either gnus-output-to-rmail or gnus-output-to-file.
Expand filename before use.
This commit is contained in:
Richard M. Stallman 1993-11-16 10:47:27 +00:00
parent cdc424a566
commit 650c052451
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/gnus.el
View File

@ -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)
)))