From 6cc52de9e376f2cf76726b91eb568ed1230f0948 Mon Sep 17 00:00:00 2001
From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 07:31:03 +0000
Subject: [PATCH] (make-full-mail-header): If field decoder does not found,
 then do not decode field body.

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

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index b5e9e96..a92bab7 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -131,9 +131,11 @@ on your system, you could say something like:
 		    :extra (mapcar
 			    (lambda (field)
 			      (cons (car field)
-				    (funcall (mime-find-field-decoder
-					      (car field) 'nov)
-					     (cdr field))))
+				    (let ((func (mime-find-field-decoder
+						 (car field) 'nov)))
+				      (if func
+					  (funcall func (cdr field))
+					(cdr field)))))
 			    extra)
 		    :original-header
 		    (apply 'list
-- 
1.7.10.4