From 592465ca38496fb3fd5fb9402a2419c11f6389a8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 27 Feb 2009 04:00:45 +0000 Subject: [PATCH] (rmail-speedbar-move-message): Preserve the directory part against rmail-output's oddness. --- lisp/mail/rmail.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 1e2131cccad..d9101f4bb41 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -3891,13 +3891,15 @@ TOKEN and INDENT are not used." (forward-char -2) (speedbar-do-function-pointer))))) -;; FIXME loses the directory part. (defun rmail-speedbar-move-message (text token indent) "From button TEXT, copy current message to the rmail file specified by TOKEN. TEXT and INDENT are not used." (speedbar-with-attached-buffer (message "Moving message to %s" token) - (rmail-output token))) + ;; expand-file-name is needed due to the unhelpful way in which + ;; rmail-output expands non-absolute filenames against rmail-default-file. + ;; What is the point of that, anyway? + (rmail-output (expand-file-name token)))) ;; Functions for setting, getting and encoding the POP password. ;; The password is encoded to prevent it from being easily accessible -- 2.39.2