;;; Code:
-(require 'mime)
+(require 'alist)
+(require 'std11)
+(require 'mime-def)
+(require 'eword-decode)
+
+(defun mime-entity-fetch-field (entity field-name)
+ (or (symbolp field-name)
+ (setq field-name (intern (capitalize (capitalize field-name)))))
+ (let* ((header (mime-entity-original-header entity))
+ (field-body (cdr (assq field-name header))))
+ (or field-body
+ (progn
+ (if (save-excursion
+ (set-buffer (mime-entity-buffer entity))
+ (save-restriction
+ (narrow-to-region (mime-entity-header-start entity)
+ (mime-entity-header-end entity))
+ (setq field-body
+ (std11-fetch-field (symbol-name field-name)))
+ ))
+ (mime-entity-set-original-header
+ entity (put-alist field-name field-body header))
+ )
+ field-body))))
+
+(defun mime-entity-read-field (entity field-name)
+ (or (symbolp field-name)
+ (setq field-name (capitalize (capitalize field-name))))
+ (cond ((eq field-name 'Content-Type)
+ (mime-entity-content-type entity)
+ )
+ ((eq field-name 'Content-Disposition)
+ (mime-entity-content-disposition entity)
+ )
+ ((eq field-name 'Content-Transfer-Encoding)
+ (mime-entity-encoding entity)
+ )
+ (t
+ (let* ((header (mime-entity-parsed-header entity))
+ (field (cdr (assq field-name header))))
+ (or field
+ (let ((field-body (mime-entity-fetch-field entity field-name)))
+ (when field-body
+ (cond ((memq field-name '(From
+ To Recent-To
+ Cc Recent-Cc
+ Bcc Resent-Bcc))
+ (setq field (std11-parse-addresses
+ (eword-lexical-analyze field-body)))
+ )
+ ((eq field-name 'Sender)
+ (setq field (std11-parse-address
+ (eword-lexical-analyze field-body)))
+ )
+ ((memq field-name eword-decode-structured-field-list)
+ (setq field (eword-decode-structured-field-body
+ field-body)))
+ (t
+ (setq field (eword-decode-unstructured-field-body
+ field-body))
+ ))
+ (mime-entity-set-parsed-header
+ entity (put-alist field-name field header))
+ field)))))))
+
+
+;;; @ end
+;;;
(provide 'mime-lib)