Mercurial > emacs
changeset 7320:f44f181c3748
(rmail-output-menu): Don't call expand-file-name.
Do nothing if rmail-secondary-file-menu return nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 04 May 1994 22:00:01 +0000 |
| parents | cd73ba498964 |
| children | f8ee542dbe80 |
| files | lisp/mail/rmailout.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailout.el Wed May 04 21:34:13 1994 +0000 +++ b/lisp/mail/rmailout.el Wed May 04 22:00:01 1994 +0000 @@ -38,11 +38,13 @@ 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.