[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