Mercurial > emacs

comparison lisp/=gnus.el @ 5012:abf7039eaa1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-summary-save-in-mail): Pass new args to rmail-output.
author Richard M. Stallman <rms@gnu.org>
date Mon, 15 Nov 1993 01:06:24 +0000
parents 8fbd7ec97c6d
children b605cd28d596
comparison
equal deleted inserted replaced
5011:22c7b341d536 5012:abf7039eaa1d
1 ;;; GNUS: an NNTP-based News Reader for GNU Emacs 1 ;;; GNUS: an NNTP-based News Reader for GNU Emacs
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/gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.26 1993/07/28 08:35:38 rms Exp eggert $ 5 ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.27 1993/08/10 04:14:17 eggert 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.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
3823 (file-name-nondirectory default-name) 3823 (file-name-nondirectory default-name)
3824 ") ") 3824 ") ")
3825 (file-name-directory default-name) 3825 (file-name-directory default-name)
3826 default-name))) 3826 default-name)))
3827 (gnus-make-directory (file-name-directory filename)) 3827 (gnus-make-directory (file-name-directory filename))
3828 (rmail-output filename) 3828 (rmail-output filename 1 t t)
3829 ;; Remember the directory name to save articles. 3829 ;; Remember the directory name to save articles.
3830 (setq gnus-newsgroup-last-mail filename) 3830 (setq gnus-newsgroup-last-mail filename)
3831 ))) 3831 )))
3832 )) 3832 ))
3833 3833