diff options
Diffstat (limited to 'emacs/notmuch-maildir-fcc.el')
| -rw-r--r-- | emacs/notmuch-maildir-fcc.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el index 6d75b11..ecb65e7 100644 --- a/emacs/notmuch-maildir-fcc.el +++ b/emacs/notmuch-maildir-fcc.el @@ -71,7 +71,9 @@ (cdr (assoc-string (message-fetch-field "from") notmuch-fcc-dirs t)))) (if (eq subdir nil) (setq subdir (car (car notmuch-fcc-dirs)))) (unless (message-fetch-field "fcc") - (message-add-header (concat "Fcc: " message-directory subdir))) + (message-add-header (concat "Fcc: " + (file-name-as-directory message-directory) + subdir))) (let ((fcc-header (message-fetch-field "fcc"))) (unless (notmuch-maildir-fcc-dir-is-maildir-p fcc-header) (cond ((not (file-writable-p fcc-header)) |