* improve message-composition / draft handling

2013-05-21 08:05:06 +03:00
parent 65ae41c37a
commit 222d8c3627
4 changed files with 61 additions and 43 deletions
--- a/mu4e/mu4e-utils.el
+++ b/mu4e/mu4e-utils.el
@ -138,6 +138,20 @@ see its docstring)."



+
+
+(defun mu4e~guess-maildir (path)
+  "Guess the maildir for some path, or nil if cannot find it."
+  (when (zerop (string-match mu4e-maildir path))
+    (replace-regexp-in-string
+      mu4e-maildir
+      ""
+      (expand-file-name
+	(concat path "/../..")))))
+
+
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defun mu4e-create-maildir-maybe (dir)
  "Offer to create maildir DIR if it does not exist yet.