From: keiichi <keiichi>
Date: Sat, 31 Oct 1998 05:24:28 +0000 (+0000)
Subject: (nnheader-decode-field-body): New inline function.
X-Git-Tag: keiichi-199811302358~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=048ca5615978cd3bd6192d1630650f95ab59a33f;p=elisp%2Fgnus.git-

(nnheader-decode-field-body): New inline function.
---

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."