From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 07:31:03 +0000 (+0000)
Subject: (make-full-mail-header): If field decoder does not found, then do not decode
X-Git-Tag: nana-gnus-7_1_0_16~66
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6cc52de9e376f2cf76726b91eb568ed1230f0948;p=elisp%2Fgnus.git-

(make-full-mail-header): If field decoder does not found, then do not decode
field body.
---

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