diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-04 22:00:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-04 22:00:01 +0000 |
| commit | df0e3d03150426e5e4006900922b8c499d939a0d (patch) | |
| tree | 58283a1d27215570b65a6b9cf358c76bb232c792 /lisp/mail/rmailout.el | |
| parent | 68e01f5af89d42b2eb92d7265f5a66888a97d627 (diff) | |
| download | emacs-df0e3d03150426e5e4006900922b8c499d939a0d.tar.gz | |
(rmail-output-menu): Don't call expand-file-name.
Do nothing if rmail-secondary-file-menu return nil.
Diffstat (limited to 'lisp/mail/rmailout.el')
| -rw-r--r-- | lisp/mail/rmailout.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index edc78b1efc9..82e665002c9 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -38,11 +38,13 @@ or more generally it may be any kind of expression that returns a file name as a string.") (defun rmail-output-menu (event) - "Output current message to another Rmail file, chosen with a menu." + "Output current message to another Rmail file, chosen with a menu. +The variables `rmail-secondary-file-directory' and +`rmail-secondary-file-regexp' control which files are offered in the menu." (interactive "e") - (rmail-output-to-rmail-file - (expand-file-name (rmail-secondary-file-menu event) - rmail-secondary-file-directory))) + (let ((file-name (rmail-secondary-file-menu event))) + (if file-name + (rmail-output-to-rmail-file file-name)))) ;;; There are functions elsewhere in Emacs that use this function; check ;;; them out before you change the calling method. |