diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-18 07:08:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-18 07:08:37 +0000 |
| commit | 254399e69ccd0a83d578c6d8abf838ba0ef9e3e1 (patch) | |
| tree | b7c3319f49de0f32d82017e3cb06e2129ca8a55b /lisp/mail/rmailout.el | |
| parent | 2436c0290978cb9a7c6397aa277fb3f906660896 (diff) | |
| download | emacs-254399e69ccd0a83d578c6d8abf838ba0ef9e3e1.tar.gz | |
(rmail-output-menu): New command.
Diffstat (limited to 'lisp/mail/rmailout.el')
| -rw-r--r-- | lisp/mail/rmailout.el | 7 |
1 files changed, 7 insertions, 0 deletions
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) |