mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(rmail-default-file, rmail-default-rmail-file): New defvars.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-04-13 21:14:54 +00:00
parent 6666f05acb
commit 783d76282f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/rmailout.el
View File

@ -37,6 +37,12 @@ NAME-EXP may be a string constant giving the file name to use,
or more generally it may be any kind of expression that returns
a file name as a string.")
;; These duplicate defvars in rmail.el, for the sake of gnus.
(defvar rmail-default-file nil
"*Default file name for \\[rmail-output].")
(defvar rmail-default-rmail-file (expand-file-name "~/XMAIL")
"*Default file name for \\[rmail-output-to-rmail-file].")
(defun rmail-output-menu (event)
"Output current message to another Rmail file, chosen with a menu."
(interactive "e")