From c0166f99c9a0637871ddf8b7c9025c8257d1f285 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 24 Jun 1998 01:30:46 +0000 Subject: [PATCH] (mime-bbdb/update-record): Use `mime-fetch-field' and `mime-read-field' instead of `mime-entity-fetch-field' and `mime-entity-read-field'. --- mime-bbdb.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/mime-bbdb.el b/mime-bbdb.el index 23d4fb3..381655c 100644 --- a/mime-bbdb.el +++ b/mime-bbdb.el @@ -161,14 +161,13 @@ 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-entity-fetch-field message 'From)) + (from (mime-fetch-field 'From message)) addr) (if (or (null from) - (null - (setq addr (car (mime-entity-read-field message 'From)))) + (null (setq addr (car (mime-read-field 'From message)))) (string-match (bbdb-user-mail-names) (std11-address-string addr))) - (setq from (or (mime-entity-fetch-field message 'To) + (setq from (or (mime-fetch-field 'To message) from)) ) (if from -- 1.7.10.4