debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-02-17 23:53:15 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Ensure that message-directory for Fcc has a trailing slash

Browse source 
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.
This commit is contained in:
Jesse Rosenthal 2010-04-26 23:08:34 -04:00 • committed by Carl Worth
parent 07c8eb1db6
commit 24a7a10af2
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/notmuch-maildir-fcc.el
View file

@ -71,7 +71,9 @@
(cdr (assoc-string (message-fetch-field "from") notmuch-fcc-dirs t)))) (cdr (assoc-string (message-fetch-field "from") notmuch-fcc-dirs t))))
(if (eq subdir nil) (setq subdir (car (car notmuch-fcc-dirs)))) (if (eq subdir nil) (setq subdir (car (car notmuch-fcc-dirs))))
(unless (message-fetch-field "fcc") (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"))) (let ((fcc-header (message-fetch-field "fcc")))
(unless (notmuch-maildir-fcc-dir-is-maildir-p fcc-header) (unless (notmuch-maildir-fcc-dir-is-maildir-p fcc-header)
(cond ((not (file-writable-p fcc-header)) (cond ((not (file-writable-p fcc-header))