# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764447347 0
# Node ID 373e377d79f758fcbe64c115cbb30562cdabe29d
# Parent  91112dd5c9f514491fb3b8e142acf5a118b79d27
(rmail-secondary-file-menu): Display relative file names.
(rmail-output-menu): Autoload it.
(rmail-mode-map): Add rmail-output-menu and rmail-input-menu.

diff -r 91112dd5c9f5 -r 373e377d79f7 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Mar 23 18:27:19 1994 +0000
+++ b/lisp/mail/rmail.el	Wed Mar 23 18:29:07 1994 +0000
@@ -382,6 +382,12 @@
 (define-key rmail-mode-map [menu-bar classify]
   (cons "Classify" (make-sparse-keymap "Classify")))
 
+(define-key rmail-mode-map [menu-bar classify input-menu]
+  '("Input Rmail file (menu)" . rmail-input-menu))
+
+(define-key rmail-mode-map [menu-bar classify output-menu]
+  '("Output (Rmail menu)" . rmail-output-menu))
+
 (define-key rmail-mode-map [menu-bar classify output-inbox]
   '("Output (inbox)" . rmail-output))
 
@@ -661,13 +667,15 @@
 
 ;; Choose a .xmail file in dir rmail-secondary-file-directory.
 (defun rmail-secondary-file-menu (event)
-  (let* ((files (directory-files rmail-secondary-file-directory t
+  (let* ((files (directory-files rmail-secondary-file-directory tnil
 				 rmail-secondary-file-regexp))
 	 (menu (list "Rmail Files"
 		     (cons "Rmail Files"
 			   (mapcar (function (lambda (f) (cons f f)))
-				   files)))))
-    (x-popup-menu event menu)))
+				   files))))
+	 (chosen (x-popup-menu event menu)))
+    (if chosen
+	(expand-file-name chosen rmail-secondary-file-directory))))
 
 (defun rmail-input-menu (event)
   "Choose a new Rmail file to edit, with a menu."
@@ -2204,6 +2212,10 @@
   "Append this message to Unix mail file named FILE-NAME."
   t)
 
+(autoload 'rmail-output-menu "rmailout"
+  "Output current message to another Rmail file, chosen with a menu."
+  t)
+
 ;;;; *** Rmail undigestification ***
 
 (autoload 'undigestify-rmail-message "undigest"