# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768088801 0
# Node ID f44f181c3748583aeb96d629003a2c099dec327b
# Parent  cd73ba49896481cee7bd3ca1666cfbdb5a297e04
(rmail-output-menu): Don't call expand-file-name.
Do nothing if rmail-secondary-file-menu return nil.

diff -r cd73ba498964 -r f44f181c3748 lisp/mail/rmailout.el
--- 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.