(from (mime-entity-fetch-field message 'From))
addr)
(if (or (null from)
- (null
- (setq addr (car (mime-entity-read-field message 'From))))
+ (null (setq addr (car (mime-entity-read-field message 'From))))
(string-match (bbdb-user-mail-names)
(std11-address-string addr)))
(setq from (or (mime-entity-fetch-field message 'To)
)
(if from
(bbdb-annotate-message-sender
- (eword-decode-structured-field-body from) t
+ (mime-decode-field-body from 'From) t
(or (bbdb-invoke-hook-for-value mime-bbdb/auto-create-p)
offer-to-create)
offer-to-create))