- (let ((field-value (and
- elmo-split-message-entity
- (elmo-split-fetch-decoded-field
- elmo-split-message-entity
- (symbol-name field)))))
- (equal field-value value))))
+ (let (result)
+ (dolist (field (if (listp field-or-fields)
+ field-or-fields
+ (list field-or-fields)))
+ (let ((field-value (and
+ elmo-split-message-entity
+ (elmo-split-fetch-decoded-field
+ elmo-split-message-entity
+ (symbol-name field)))))
+ (setq result (or result
+ (equal field-value value)))))
+ result)))