(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 (file)
--- 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