[PATCH 3/5] Use message-field-value instead of message-fetch-field.

Dmitry Kurochkin dmitry.kurochkin at gmail.com
Thu Jul 1 09:08:25 PDT 2010


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



More information about the notmuch mailing list