emacs: Delete some trailing whitespace.

That managed to sneak in with some recent improvements to the Fcc code.
This commit is contained in:
Carl Worth 2010-04-26 23:09:08 -07:00
parent 24a7a10af2
commit 173a195da9

View file

@ -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