(mime-entity-fetch-field): New method of luna-class `mime-entity'.

diff --git a/mime-def.el b/mime-def.el
index 89a696d..e36dbc4 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -224,6 +224,13 @@
 
 (luna-define-internal-accessors 'mime-entity)
 
+(luna-define-method mime-entity-fetch-field ((entity mime-entity)
+                                            field-name)
+  (or (symbolp field-name)
+      (setq field-name (intern (capitalize (capitalize field-name)))))
+  (cdr (assq field-name
+            (mime-entity-original-header-internal entity))))
+
 
 ;;; @ for mm-backend
 ;;;