diff options
| author | Richard M. Stallman | 1993-11-17 13:41:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-17 13:41:50 +0000 |
| commit | 9a22438281a5ada3643160988ae4e2203bddd0a7 (patch) | |
| tree | 808f97a54bd4f9aa2f1572157d5e552601027bf9 | |
| parent | 2555cdec34077bd8f6bec119eeb92c42e4b10b3c (diff) | |
| download | emacs-9a22438281a5ada3643160988ae4e2203bddd0a7.tar.gz emacs-9a22438281a5ada3643160988ae4e2203bddd0a7.zip | |
(gnus-summary-save-in-mail): Use rmail-output
if the file is not an Rmail file.
| -rw-r--r-- | lisp/gnus.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index 3d72dfcae11..e06288db874 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. | 2 | ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> | 4 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> |
| 5 | ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.28 1993/11/15 01:06:24 rms Exp rms $ | 5 | ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.29 1993/11/16 10:47:27 rms Exp rms $ |
| 6 | ;; Keywords: news | 6 | ;; Keywords: news |
| 7 | 7 | ||
| 8 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| @@ -3831,7 +3831,7 @@ is initialized from the SAVEDIR environment variable." | |||
| 3831 | (gnus-make-directory (file-name-directory filename)) | 3831 | (gnus-make-directory (file-name-directory filename)) |
| 3832 | (if (and (file-readable-p filename) (rmail-file-p filename)) | 3832 | (if (and (file-readable-p filename) (rmail-file-p filename)) |
| 3833 | (gnus-output-to-rmail filename) | 3833 | (gnus-output-to-rmail filename) |
| 3834 | (gnus-output-to-file filename)) | 3834 | (rmail-output filename 1 t t)) |
| 3835 | ;; Remember the directory name to save articles. | 3835 | ;; Remember the directory name to save articles. |
| 3836 | (setq gnus-newsgroup-last-mail filename) | 3836 | (setq gnus-newsgroup-last-mail filename) |
| 3837 | ))) | 3837 | ))) |