diff options
author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2010-04-26 23:08:34 -0400 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-26 23:06:54 -0700 |
commit | 24a7a10af2cbac0dadf45ffcdc59a8d84d6d4354 (patch) | |
tree | d4369c910aa4102c2cdb08e81824cf19bf6ce976 /emacs/notmuch-maildir-fcc.el | |
parent | 07c8eb1db6ab9a8b2939d656f17f0f836ba05c75 (diff) |
emacs: Ensure that message-directory for Fcc has a trailing slash
Use `file-name-as-directory' to ensure that message-directory has a
trailing slash so it can be combined with the notmuch-fcc-dirs
correctly.
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 6d75b118..ecb65e7a 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)) |