diff options
| author | Richard M. Stallman | 1993-11-22 06:44:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-22 06:44:12 +0000 |
| commit | b7d52f8ed4f302153f3bbe6eb2110ff81ca567de (patch) | |
| tree | 8f2348317aee157424e64a0252d77f5688f88b8b | |
| parent | 49132687e709a70af89b8f53cedb1ce20e7184c9 (diff) | |
| download | emacs-b7d52f8ed4f302153f3bbe6eb2110ff81ca567de.tar.gz emacs-b7d52f8ed4f302153f3bbe6eb2110ff81ca567de.zip | |
(gnus-inews-do-fcc): If gnus-author-copy-saver
is rmail-output, call rmail-output the proper way.
| -rw-r--r-- | lisp/gnuspost.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnuspost.el b/lisp/gnuspost.el index cf7e18f57cc..6df8ec054f6 100644 --- a/lisp/gnuspost.el +++ b/lisp/gnuspost.el | |||
| @@ -3,7 +3,7 @@ | |||
| 3 | ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> | 5 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
| 6 | ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.14 1993/07/20 04:25:04 rms Exp rms $ | 6 | ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.15 1993/11/22 06:38:28 rms Exp rms $ |
| 7 | ;; Keywords: news | 7 | ;; Keywords: news |
| 8 | 8 | ||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| @@ -591,7 +591,8 @@ a program specified by the rest of the value." | |||
| 591 | (t | 591 | (t |
| 592 | ;; Suggested by hyoko@flab.fujitsu.junet. | 592 | ;; Suggested by hyoko@flab.fujitsu.junet. |
| 593 | ;; Save article in Unix mail format by default. | 593 | ;; Save article in Unix mail format by default. |
| 594 | (if gnus-author-copy-saver | 594 | (if (and gnus-author-copy-saver |
| 595 | (not (eq gnus-author-copy-saver 'rmail-output))) | ||
| 595 | (funcall gnus-author-copy-saver fcc-file) | 596 | (funcall gnus-author-copy-saver fcc-file) |
| 596 | (if (and (file-readable-p fcc-file) (rmail-file-p fcc-file)) | 597 | (if (and (file-readable-p fcc-file) (rmail-file-p fcc-file)) |
| 597 | (gnus-output-to-rmail fcc-file) | 598 | (gnus-output-to-rmail fcc-file) |