summaryrefslogtreecommitdiff
path: root/lisp/mail/rmailout.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-04-13 21:14:54 +0000
committerRichard M. Stallman <rms@gnu.org>1994-04-13 21:14:54 +0000
commitc45b17a93a86d876c4d73822f5d20e9017c4d71e (patch)
tree7526e70a39a32ac17a713f0b2df85fa6ee510a1e /lisp/mail/rmailout.el
parenta55a9e7ee4bef5cb066c56ded3a5c4db50d7e3cb (diff)
downloademacs-c45b17a93a86d876c4d73822f5d20e9017c4d71e.tar.gz
(rmail-default-file, rmail-default-rmail-file): New defvars.
Diffstat (limited to 'lisp/mail/rmailout.el')
-rw-r--r--lisp/mail/rmailout.el6
1 files changed, 6 insertions, 0 deletions
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")