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.
-Also set the default for subsequent \\[rmail-output-to-rmail-file] commands.
-The variables `rmail-secondary-file-directory' and
-`rmail-secondary-file-regexp' control which files are offered in the menu."
- (interactive "e")
- (let ((file-name (rmail-secondary-file-menu event)))
- (if file-name
- (rmail-output-to-rmail-file
- (setq rmail-default-rmail-file file-name)))))
-
;;; 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)