From: David Edmondson <dme@dme.org>
Date: Fri, 12 Nov 2010 08:07:02 +0000 (+0000)
Subject: emacs: Use truenames for Fcc paths.
X-Git-Tag: debian/0.6_254~233
X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=cafd46ca135f8f3061cb65b8f6ab0b91902a48b3;p=obsolete%2Fnotmuch-old

emacs: Use truenames for Fcc paths.

Appease the test suite by using the true name for the Fcc directory
path, otherwise a value for `notmuch-database-path' which includes
symbolic links causes test suite failures.
---

diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el
index e5e0549b..3f1c124d 100644
--- a/emacs/notmuch-maildir-fcc.el
+++ b/emacs/notmuch-maildir-fcc.el
@@ -110,11 +110,12 @@ will NOT be removed or replaced."
     (when subdir
       (message-add-header
        (concat "Fcc: "
-	       ;; If the resulting directory is not an absolute path,
-	       ;; prepend the standard notmuch database path.
-	       (if (= (elt subdir 0) ?/)
-		   subdir
-		 (concat (notmuch-database-path) "/" subdir))))
+	       (file-truename
+		;; If the resulting directory is not an absolute path,
+		;; prepend the standard notmuch database path.
+		(if (= (elt subdir 0) ?/)
+		    subdir
+		  (concat (notmuch-database-path) "/" subdir)))))
       
       ;; finally test if fcc points to a valid maildir
       (let ((fcc-header (message-fetch-field "Fcc")))