--- emacs/notmuch-maildir-fcc.el | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el index 8bb41a8..c3e4505 100644 --- a/emacs/notmuch-maildir-fcc.el +++ b/emacs/notmuch-maildir-fcc.el @@ -83,18 +83,18 @@ ;; notmuch-fcc-dirs is a string, just use it as subdir (setq subdir notmuch-fcc-dirs) ;; else: it's a list of alists (("sent") ("name1" . "sent1")) - (setq subdir (cdr (assoc-string (message-fetch-field "from") notmuch-fcc-dirs t))) + (setq subdir (cdr (assoc-string (message-field-value "from") notmuch-fcc-dirs t))) ;; if we found no hit, use the first entry as default fallback (unless subdir (setq subdir (car (car notmuch-fcc-dirs))))) ;; if there is no fcc header yet, add ours - (unless (message-fetch-field "fcc") + (unless (message-field-value "fcc") (message-add-header (concat "Fcc: " (file-name-as-directory message-directory) subdir))) ;; finally test if fcc points to a valid maildir - (let ((fcc-header (message-fetch-field "fcc"))) + (let ((fcc-header (message-field-value "fcc"))) (unless (notmuch-maildir-fcc-dir-is-maildir-p fcc-header) (cond ((not (file-writable-p fcc-header)) (error (format "%s is not a maildir, but you don't have permission to create one." fcc-header))) -- 1.7.1