Importing pgnus-0.40.

[elisp/gnus.git-] / lisp / nnheader.el

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 302924d..9d64793 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -337,7 +337,8 @@ on your system, you could say something like:
     (let ((extra (mail-header-extra header)))
       (while extra
        (insert (symbol-name (caar extra))
-               ": " (cdar extra) "\t"))))
+               ": " (cdar extra) "\t")
+        (pop extra))))
   (insert "\n"))
 
 (defun nnheader-insert-article-line (article)