From: morioka <morioka>
Date: Tue, 29 Sep 1998 17:49:16 +0000 (+0000)
Subject: (gnus-update-summary-mark-positions): Use `make-full-mail-header'.
X-Git-Tag: chao-gnus-6_9_1~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d8b7ce28947cf8be657b9dc489e75477117bce21;p=elisp%2Fgnus.git-

(gnus-update-summary-mark-positions): Use `make-full-mail-header'.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e2a0412..2119481 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2371,7 +2371,8 @@ marks of articles."
 	(let ((gnus-summary-line-format-spec spec)
 	      (gnus-newsgroup-downloadable '((0 . t))))
 	  (gnus-summary-insert-line
-	   [0 "" "" "" "" "" 0 0 ""]  0 nil 128 t nil "" nil 1)
+	   (make-full-mail-header 0 "" "" "" "" "" 0 0 "")
+	   0 nil 128 t nil "" nil 1)
 	  (goto-char (point-min))
 	  (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
 					     (- (point) 2)))))