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 | 27f9d0ee19c00de684692e49ebc501af625278b5 (patch) | |
| tree | 581f45f8cc2e11d3fb125673fcfc686da7d0d20f /lisp/mail/rmailout.el | |
| parent | 3fc49d069ff2bf82b3bb303bc7dcc0c8fcf45a47 (diff) | |
| download | emacs-27f9d0ee19c00de684692e49ebc501af625278b5.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. |