Mercurial > emacs
changeset 6483:373e377d79f7
(rmail-secondary-file-menu): Display relative file names.
(rmail-output-menu): Autoload it.
(rmail-mode-map): Add rmail-output-menu and rmail-input-menu.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 23 Mar 1994 18:29:07 +0000 |
| parents | 91112dd5c9f5 |
| children | 04993cb5dcda |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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"