aboutsummaryrefslogtreecommitdiffhomepage
path: root/emacs
diff options
context:
space:
mode:
authorGravatar David Edmondson <dme@dme.org>2010-11-12 08:07:02 +0000
committerGravatar Carl Worth <cworth@cworth.org>2010-12-07 13:47:59 -0800
commitcafd46ca135f8f3061cb65b8f6ab0b91902a48b3 (patch)
treea23b509f469f3ad5305e5ce545361563813f342d /emacs
parent2ff4c4bb2ad32056642e7b12b26d287d98ca181e (diff)
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.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/notmuch-maildir-fcc.el11
1 files changed, 6 insertions, 5 deletions
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")))