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

(rmail-speedbar-move-message): Preserve the directory part against

Browse Source 
rmail-output's oddness.
This commit is contained in:
Glenn Morris 2009-02-27 04:00:45 +00:00
parent 100ca6b9bb
commit 592465ca38
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/rmail.el
View File

@ -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