emacs: Delete some trailing whitespace.

[obsolete/notmuch-old] / emacs / notmuch-maildir-fcc.el

diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el
index 6d75b118018c30d6cabf58ba9bbe4043e042d4ec..8af6f009e4289afa767b4ba05ab6f709ccca5eb4 100644 (file)
--- 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))
@@ -81,7 +83,7 @@
              (notmuch-maildir-fcc-create-maildir fcc-header))
             (t
              (error "Not sending message."))))))))
-             
+
 (defun notmuch-maildir-fcc-host-fixer (hostname)
   (replace-regexp-in-string "/\\|:"
                            '(lambda (s)
@@ -119,8 +121,6 @@
         (error "%s is a file. Can't creat maildir." path))
        (t
         (error "I don't know how to create a maildir here"))))
-        
-  
 
 (defun notmuch-maildir-fcc-save-buffer-to-tmp (destdir)
   "Returns the msg id of the message written to the temp directory