emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* fix mkdir / interaction with 'move-to-maildir'

This commit is contained in:
djcb 2012-01-03 22:33:41 +02:00
parent 8235efc5df
commit a60ecb5284
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
emacs/mu4e-hdrs.el
View File

@ -708,12 +708,16 @@ not provided, function asks for it."
(interactive)
(with-current-buffer mu4e-hdrs-buffer
(let* ((target (or target (mu4e-ask-maildir "Move message to: ")))
(target (if (string= (substring target 0 1) "/")
target
(concat "/" target)))
(fulltarget (concat mu4e-maildir target)))
(when (or (file-directory-p fulltarget)
(and (yes-or-no-p
(format "%s does not exist. Create now?" fulltarget))
(mu4e-proc-mkdir fulltarget)))
(mu4e-hdrs-mark 'move target)
(sleep-for 1) ;; ugly
(mu4e-hdrs-mark 'move target)
(mu4e-next-header)))))

4
emacs/mu4e-proc.el
View File

@ -401,6 +401,10 @@ set to e.g. '/drafts'; if this works, we will receive (:info :path
<path> :docid <docid>)."
(mu4e-proc-send-command "add \"%s\" \"%s\"" path maildir))
(defun mu4e-proc-mkdir (maildir)
"Update the message database for MAILDIR."
(mu4e-proc-send-command "mkdir \"%s\"" maildir))
(defun mu4e-proc-save (docid partidx path)
"Save attachment PARTIDX from message with DOCID to PATH."
(mu4e-proc-send-command "save %d %d \"%s\"" docid partidx path))