X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-cache.el;h=1054b3ff3389fa3fff63a352f326118031333982;hb=e2696774a2e225ea60d46cc665d4232c80412731;hp=1d5a81bf29c4b865265aaa75f808bb42aeea749f;hpb=edd186427a52b6e096896aaad979b3314154b721;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 1d5a81b..1054b3f 100644
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -126,7 +126,8 @@ it's not cached."
 	  (overview-file (gnus-cache-file-name
 			  (car gnus-cache-buffer) ".overview")))
       ;; write the overview only if it was modified
-      (when (and (buffer-live-p buffer) (buffer-modified-p buffer))
+      (when (and (buffer-live-p buffer)
+		 (buffer-modified-p buffer))
 	(with-current-buffer buffer
 	  (if (> (buffer-size) 0)
 	      ;; Non-empty overview, write it to a file.
@@ -143,8 +144,8 @@ it's not cached."
 		(delete-directory (file-name-directory overview-file))
 	      (error)))
 
-	  (gnus-cache-update-overview-total-fetched-for (car gnus-cache-buffer) 
-							overview-file)))
+	  (gnus-cache-update-overview-total-fetched-for
+	   (car gnus-cache-buffer) overview-file)))
       ;; Kill the buffer -- it's either unmodified or saved.
       (gnus-kill-buffer buffer)
       (setq gnus-cache-buffer nil))))
@@ -155,7 +156,8 @@ it's not cached."
 	     (numberp article)
 	     (> article 0)		; This might be a dummy article.
 	     (vectorp headers))
-    (let ((number article) file)
+    (let ((number article)
+	  file lines-chars)
       ;; If this is a virtual group, we find the real group.
       (when (gnus-virtual-group-p group)
 	(let ((result (nnvirtual-find-group-art
@@ -185,9 +187,12 @@ it's not cached."
 	      (gnus-write-buffer-as-coding-system
 	       gnus-cache-write-file-coding-system file)
 	      (gnus-cache-update-file-total-fetched-for group file)
+	      (setq lines-chars (nnheader-get-lines-and-char))
 	      (nnheader-remove-body)
 	      (setq headers (nnheader-parse-naked-head))
 	      (mail-header-set-number headers number)
+	      (mail-header-set-lines headers (car lines-chars))
+	      (mail-header-set-chars headers (cadr lines-chars))
 	      (gnus-cache-change-buffer group)
 	      (set-buffer (cdr gnus-cache-buffer))
 	      (goto-char (point-max))