mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(rmail-output-menu): Don't call expand-file-name.

Browse Source 
Do nothing if rmail-secondary-file-menu return nil.
This commit is contained in:
Richard M. Stallman 1994-05-04 22:00:01 +00:00
parent 68e01f5af8
commit df0e3d0315
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/mail/rmailout.el
View File

@ -38,11 +38,13 @@ 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."
"Output current message to another Rmail file, chosen with a menu.
The variables `rmail-secondary-file-directory' and
`rmail-secondary-file-regexp' control which files are offered in the menu."
(interactive "e")
(rmail-output-to-rmail-file
(expand-file-name (rmail-secondary-file-menu event)
rmail-secondary-file-directory)))
(let ((file-name (rmail-secondary-file-menu event)))
(if file-name
(rmail-output-to-rmail-file file-name))))
;;; There are functions elsewhere in Emacs that use this function; check
;;; them out before you change the calling method.