From 783d76282f55d8bc3637f8b2c2a4c476c85c241e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Apr 1994 21:14:54 +0000 Subject: [PATCH] (rmail-default-file, rmail-default-rmail-file): New defvars. --- lisp/mail/rmailout.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index fa96fb9316b..91a93a4e442 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -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") -- 2.39.5