X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnheader.el;h=03014e540c6ba870acc6cfa50f01331bd978122e;hb=a82fb840dc1a4e4f343f7f3e0faa307e841f3bc2;hp=1bfdbeab9c4a643060f6955d5f323cddf5d583f8;hpb=a4cc1a7862f0e7e0eba0acadfe8ffad990e4fe41;p=gnus

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 1bfdbeab9..03014e540 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -463,7 +463,7 @@ on your system, you could say something like:
       (let ((extra (mail-header-extra header)))
 	(while extra
 	  (insert (symbol-name (caar extra))
-		  ": " (cdar extra) "\t")
+		  ": " (if (stringp (cdar extra)) (cdar extra) "") "\t")
 	  (pop extra))))
     (insert "\n")
     (backward-char 1)