diff options
| author | Carl Worth <cworth@cworth.org> | 2010-04-26 23:09:08 -0700 |
|---|---|---|
| committer | Carl Worth <cworth@cworth.org> | 2010-04-26 23:09:08 -0700 |
| commit | 173a195da97613bf25efbc248e27305ea23de70c (patch) | |
| tree | d2454c9912769e98fd699ea6e65da4e292ad9fb0 | |
| parent | 24a7a10af2cbac0dadf45ffcdc59a8d84d6d4354 (diff) | |
emacs: Delete some trailing whitespace.
That managed to sneak in with some recent improvements to the Fcc code.
| -rw-r--r-- | emacs/notmuch-maildir-fcc.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el index ecb65e7..8af6f00 100644 --- a/emacs/notmuch-maildir-fcc.el +++ b/emacs/notmuch-maildir-fcc.el @@ -71,8 +71,8 @@ (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: " - (file-name-as-directory message-directory) + (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) @@ -83,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) @@ -121,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 |