diff options
| author | Richard M. Stallman | 1994-04-13 21:14:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-13 21:14:54 +0000 |
| commit | 783d76282f55d8bc3637f8b2c2a4c476c85c241e (patch) | |
| tree | 2187f7370e5d4f8dc04dfb57cf6308ae9503a6f1 | |
| parent | 6666f05acbdb611e6e5b239b0ddb0ef0eb9bb76d (diff) | |
| download | emacs-783d76282f55d8bc3637f8b2c2a4c476c85c241e.tar.gz emacs-783d76282f55d8bc3637f8b2c2a4c476c85c241e.zip | |
(rmail-default-file, rmail-default-rmail-file): New defvars.
| -rw-r--r-- | lisp/mail/rmailout.el | 6 |
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, | |||
| 37 | or more generally it may be any kind of expression that returns | 37 | or more generally it may be any kind of expression that returns |
| 38 | a file name as a string.") | 38 | a file name as a string.") |
| 39 | 39 | ||
| 40 | ;; These duplicate defvars in rmail.el, for the sake of gnus. | ||
| 41 | (defvar rmail-default-file nil | ||
| 42 | "*Default file name for \\[rmail-output].") | ||
| 43 | (defvar rmail-default-rmail-file (expand-file-name "~/XMAIL") | ||
| 44 | "*Default file name for \\[rmail-output-to-rmail-file].") | ||
| 45 | |||
| 40 | (defun rmail-output-menu (event) | 46 | (defun rmail-output-menu (event) |
| 41 | "Output current message to another Rmail file, chosen with a menu." | 47 | "Output current message to another Rmail file, chosen with a menu." |
| 42 | (interactive "e") | 48 | (interactive "e") |