From 048ca5615978cd3bd6192d1630650f95ab59a33f Mon Sep 17 00:00:00 2001
From: keiichi <keiichi>
Date: Sat, 31 Oct 1998 05:24:28 +0000
Subject: [PATCH] (nnheader-decode-field-body): New inline function.

---
 lisp/nnheader.el |    8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 1ae0977..167e660 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -107,6 +107,14 @@ on your system, you could say something like:
 (defalias 'nnheader-decode-from
   (mime-find-field-decoder 'From 'unfolding))
 
+(defsubst nnheader-decode-field-body (field-body field-name
+						 &optional mode max-column)
+  (mime-decode-field-body field-body
+                          (if (stringp field-name)
+                              (intern (capitalize field-name))
+                            field-name)
+                          mode max-column))
+
 (defsubst make-full-mail-header (&optional number subject from date id
 					   references chars lines xref)
   "Create a new mail header structure initialized with the parameters given."
-- 
1.7.10.4