From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 May 1994 22:00:01 +0000 (+0000)
Subject: (rmail-output-menu): Don't call expand-file-name.
X-Git-Tag: emacs-19.34~8533
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df0e3d03150426e5e4006900922b8c499d939a0d;p=emacs.git

(rmail-output-menu): Don't call expand-file-name.
Do nothing if rmail-secondary-file-menu return nil.
---

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.