From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 22 Nov 1993 06:38:28 +0000 (+0000)
Subject: (gnus-inews-do-fcc): Use gnus-output-to-rmail
X-Git-Tag: emacs-19.34~10741
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49132687e709a70af89b8f53cedb1ce20e7184c9;p=emacs.git

(gnus-inews-do-fcc): Use gnus-output-to-rmail
if file is an rmail file.  Pass extra args to rmail-output.
---

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