From 254399e69ccd0a83d578c6d8abf838ba0ef9e3e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 18 Mar 1994 07:08:37 +0000 Subject: [PATCH] (rmail-output-menu): New command. --- lisp/mail/rmailout.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index e3acb8b2e88..4fb669b09bb 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -37,6 +37,13 @@ NAME-EXP may be a string constant giving the file name to use, 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." + (interactive "e") + (rmail-output-to-rmail-file + (expand-file-name (rmail-secondary-file-menu event) + rmail-secondary-file-directory))) + ;;; There are functions elsewhere in Emacs that use this function; check ;;; them out before you change the calling method. (defun rmail-output-to-rmail-file (file-name &optional count) -- 2.39.5