From 257c4503161e0c222189cde5ad3057ed89709f61 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Jul 1999 14:24:00 +0000 Subject: [PATCH] (mime-bbdb/update-record): Use `mime-entity-fetch-field' instead of `mime-fetch-field'. --- mime-bbdb.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4