From: morioka <morioka>
Date: Wed, 28 Jul 1999 14:24:00 +0000 (+0000)
Subject: (mime-bbdb/update-record): Use `mime-entity-fetch-field' instead of
X-Git-Tag: remi-1_13_2~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=257c4503161e0c222189cde5ad3057ed89709f61;p=elisp%2Fsemi.git

(mime-bbdb/update-record): Use `mime-entity-fetch-field' instead of
`mime-fetch-field'.
---

diff --git a/mime-bbdb.el b/mime-bbdb.el
index 62bc191..39913df 100644
--- a/mime-bbdb.el
+++ b/mime-bbdb.el
@@ -161,10 +161,10 @@ the user confirms the creation."
     (if bbdb-use-pop-up
         (mime-bbdb/pop-up-bbdb-buffer offer-to-create)
       (let* ((message (get-text-property (point-min) 'mime-view-entity))
-	     (from (mime-fetch-field 'From message))
+	     (from (mime-entity-fetch-field message 'From))
 	     addr)
 	(if (or (null from)
-                (null (setq addr (car (mime-read-field 'From message))))
+                (null (setq addr (car (mime-entity-read-field message 'From))))
                 (string-match (bbdb-user-mail-names)
 			      (std11-address-string addr)))
             (setq from (or (mime-fetch-field 'To message)