From: morioka <morioka>
Date: Sat, 29 May 1999 10:47:52 +0000 (+0000)
Subject: (mime-entity-fetch-field): New method of luna-class `mime-entity'.
X-Git-Tag: chao-1_13_0~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=276f9fb6e693208a09d7436966198c0e2ef2a797;p=elisp%2Fflim.git

(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
--- 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
 ;;;