Mercurial > emacs

comparison lisp/mail/rmailout.el @ 658:7cbd4fcd8b0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 30 May 1992 21:11:25 +0000
parents ae5ace097df2
children 9d04c281a9bd
comparison
equal deleted inserted replaced
657:fec3f9a1e3e5 658:7cbd4fcd8b0f
1 ;; "RMAIL" mail reader for Emacs: output message to a file. 1 ;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
2
2 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
3 4
4 ;; This file is part of GNU Emacs. 5 ;; This file is part of GNU Emacs.
5 6
6 ;; GNU Emacs is free software; you can redistribute it and/or modify 7 ;; GNU Emacs is free software; you can redistribute it and/or modify
178 (setq count (1- count)) 179 (setq count (1- count))
179 (if rmail-delete-after-output 180 (if rmail-delete-after-output
180 (rmail-delete-forward) 181 (rmail-delete-forward)
181 (if (> count 0) 182 (if (> count 0)
182 (rmail-next-undeleted-message 1))))) 183 (rmail-next-undeleted-message 1)))))
184
185 ;;; rmailout.el ends here