diff options
| author |  David Edmondson <dme@dme.org> | 2010-11-12 08:07:02 +0000 |
|---|---|---|
| committer |  Carl Worth <cworth@cworth.org> | 2010-12-07 13:47:59 -0800 |
| commit | cafd46ca135f8f3061cb65b8f6ab0b91902a48b3 (patch) | |
| tree | a23b509f469f3ad5305e5ce545361563813f342d /emacs/notmuch-maildir-fcc.el | |
| parent | 2ff4c4bb2ad32056642e7b12b26d287d98ca181e (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/notmuch-maildir-fcc.el')
| -rw-r--r-- | emacs/notmuch-maildir-fcc.el | 11 |
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"))) |