Mercurial > emacs
changeset 5110:c002b7320691
(gnus-inews-do-fcc): Use gnus-output-to-rmail
if file is an rmail file. Pass extra args to rmail-output.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 22 Nov 1993 06:38:28 +0000 |
| parents | 062da10a4a6b |
| children | d9fb93d75f74 |
| files | lisp/=gnuspost.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnuspost.el Mon Nov 22 06:35:37 1993 +0000 +++ b/lisp/=gnuspost.el Mon Nov 22 06:38:28 1993 +0000 @@ -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 @@ (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))) )) ) ))