summaryrefslogtreecommitdiffhomepage
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/net/jao-notmuch.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index de1885f..4ca8573 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -53,20 +53,20 @@
(defun jao-notmuch--full-path ()
(seq-find #'file-exists-p (plist-get (jao-notmuch--msg-props) :filename)))
-(defun jao-notmuch--move (&optional full-path d seen)
+(defun jao-notmuch--move (&optional full-path d)
(let* ((full-path (or full-path (jao-notmuch--full-path)))
(ff (jao-notmuch--path-to-mailbox full-path))
(d (or d (completing-read (format "From %s to: " ff)
(remove ff jao-notmuch-mailboxes) nil t)))
(dest (string-replace ff d full-path))
- (dest (replace-regexp-in-string ",U=.+$" (if seen "m,S" "m") dest))
+ (dest (replace-regexp-in-string ",U=.+$" "m:2,S" dest))
(ftags (split-string ff "/"))
(ttags (split-string d "/")))
(when (y-or-n-p (format "%s -> %s? " ftags ttags))
+ (notmuch-tree-close-message-window)
(notmuch-tree-tag (append (notmuch-tag-change-list ftags t)
(notmuch-tag-change-list ttags)))
- (notmuch-tree-close-message-window)
- (rename-file full-path dest)
+ (rename-file (jao-notmuch--full-path) dest)
(shell-command-to-string "notmuch new")
(notmuch-refresh-this-buffer))))