From 0c7e2cf500339c34a18528680d90994b44a87b8e Mon Sep 17 00:00:00 2001 From: Tokuya Kameshima Date: Mon, 11 Mar 2013 16:54:05 +0100 Subject: [PATCH] org-mew.el (org-mew-folder-name): Take Mew's "case" feature into account * org-mew.el (org-mew-folder-name): Take Mew's "case" feature into account. --- contrib/lisp/org-mew.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-mew.el b/contrib/lisp/org-mew.el index 22bf7afe0..ca6a3527f 100644 --- a/contrib/lisp/org-mew.el +++ b/contrib/lisp/org-mew.el @@ -195,7 +195,8 @@ with \"t\" key." (mark-info (mew-summary-get-mark))) (if (and org-mew-link-to-refile-destination (eq mark-info ?o)) ; marked as refile - (nth 1 (mew-refile-get msgnum)) + (mew-case-folder (mew-sinfo-get-case) + (nth 1 (mew-refile-get msgnum))) (let ((folder-or-path (mew-summary-folder-name))) (mew-folder-path-to-folder folder-or-path t)))))) -- 2.11.4.GIT