diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-22 06:38:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-22 06:38:28 +0000 |
| commit | 8b96d33d35b3703d9a458eee953615dcea71ae5f (patch) | |
| tree | f51b7fc83b5229fbe0d82c619378ba0915fc520e /lisp/=gnuspost.el | |
| parent | 1a04ab1d56699a04d2b23262121caf3329ce9325 (diff) | |
| download | emacs-8b96d33d35b3703d9a458eee953615dcea71ae5f.tar.gz | |
(gnus-inews-do-fcc): Use gnus-output-to-rmail
if file is an rmail file. Pass extra args to rmail-output.
Diffstat (limited to 'lisp/=gnuspost.el')
| -rw-r--r-- | lisp/=gnuspost.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/=gnuspost.el b/lisp/=gnuspost.el index 53eac7ee2a6..cf7e18f57cc 100644 --- a/lisp/=gnuspost.el +++ b/lisp/=gnuspost.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> -;; Version: $Header: gnuspost.el,v 4.1 93/07/19 15:43:46 umerin Exp $ +;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.14 1993/07/20 04:25:04 rms Exp rms $ ;; Keywords: news ;; This file is part of GNU Emacs. @@ -591,7 +591,11 @@ a program specified by the rest of the value." (t ;; Suggested by hyoko@flab.fujitsu.junet. ;; Save article in Unix mail format by default. - (funcall (or gnus-author-copy-saver 'rmail-output) fcc-file) + (if gnus-author-copy-saver + (funcall gnus-author-copy-saver fcc-file) + (if (and (file-readable-p fcc-file) (rmail-file-p fcc-file)) + (gnus-output-to-rmail fcc-file) + (rmail-output fcc-file 1 t t))) )) ) )) |