From 00dd6ae030a5b026b8da4c2cc6b3e8b302e5f58c Mon Sep 17 00:00:00 2001 From: keiichi Date: Fri, 30 Oct 1998 06:30:09 +0000 Subject: [PATCH] (gnus-bbdb/update-record): Use `mime-decode-field-body'. (gnus-bbdb/extract-field-value): Ditto. --- lisp/gnus-bbdb.el | 17 +++++------------ 1 file changed, 5 insertions(+), 12 deletions(-) diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el index e33a2c6..15896db 100644 --- a/lisp/gnus-bbdb.el +++ b/lisp/gnus-bbdb.el @@ -46,11 +46,7 @@ the user confirms the creation." (error "message unexists")) (- (point) 2))) (let ((to (mail-fetch-field "to"))) - (when to - (let ((decoder (mime-find-field-decoder 'To 'unfolding))) - (and (functionp decoder) - (setq to (funcall decoder to)) - (setq from to))))))) + (setq from (mime-decode-field-body to 'To 'unfolding))))) (when from (bbdb-annotate-message-sender from t (or (bbdb-invoke-hook-for-value @@ -440,14 +436,11 @@ beginning of the message headers." ;; we can't special-case VM here to use its cache, because the cache has ;; divided real-names from addresses; the actual From: and Subject: fields ;; exist only in the message. - (let (value decoder) + (let (value) (when (setq value (mail-fetch-field field-name)) - (or (and (setq decoder - (mime-find-field-decoder - (intern (capitalize field-name)) 'unfolding)) - (fboundp decoder) - (funcall decoder value)) - value)))) + (mime-decode-field-body value + (intern (capitalize field-name)) + 'unfolding)))) ;; ;; Insinuation -- 1.7.10.4