From 276f9fb6e693208a09d7436966198c0e2ef2a797 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sat, 29 May 1999 10:47:52 +0000
Subject: [PATCH 1/1] (mime-entity-fetch-field): New method of luna-class
 `mime-entity'.

---
 mime-def.el |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/mime-def.el b/mime-def.el
index 89a696d..e36dbc4 100644
--- 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
 ;;;
-- 
1.7.10.4