emacs: Change FCC to be relative to notmuch mail store, not message-directory

[obsolete/notmuch-old] / emacs / notmuch-lib.el

diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
index f30bcb429cc2a775a98b0242b3f3f63b5a0c8ecf..91132b504169510556d0e3f90a21e202f9582c75 100644 (file)
--- a/emacs/notmuch-lib.el
+++ b/emacs/notmuch-lib.el
@@ -68,6 +68,13 @@ the user hasn't set this variable with the old or new value."
        (match-string 2 long-string)
       "unknown")))
 
+(defun notmuch-database-path ()
+  "Return the database.path value from the notmuch configuration."
+  ;; Trim off the trailing newline
+  (substring (shell-command-to-string
+             (concat notmuch-command " config get database.path"))
+             0 -1))
+
 ;;
 
 ;; XXX: This should be a generic function in emacs somewhere, not