patch: gnus-agent

patch: gnus-agent

[Shenghuo ZHU]

When there is no message in an agent covered group, the group shows as
         *: microsoft.public.ofc(nntp:msnews.microsoft.com)

Actually the group exists. 

A patch is attached.

-- 
Shenghuo

:- cut ---------------------------
--- ChangeLog	1998/11/11 07:14:33	1.1
+++ ChangeLog	1998/11/11 07:15:52
@@ -1,3 +1,8 @@
+Wed Nov 11 02:15:06 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-agent.el (gnus-agent-fetch-headers): Create directory even
+	when no articles.
+
 Sun Nov  8 23:17:24 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.42 is released.

--- gnus-agent.el	1998/11/11 07:08:24	1.1
+++ gnus-agent.el	1998/11/11 07:09:49
@@ -771,8 +771,11 @@
  			(cons (1+ (caar (last gnus-agent-article-alist)))
  			      (cdr (gnus-active group)))))
  		    (gnus-list-of-unread-articles group)))
-	(gnus-decode-encoded-word-function 'identity)) 
+	(gnus-decode-encoded-word-function 'identity)
+	(file (gnus-agent-article-name ".overview" group))) 
     ;; Fetch them.
+    (gnus-make-directory (nnheader-translate-file-chars
+			  (file-name-directory file)))
     (when articles
       (gnus-message 7 "Fetching headers for %s..." group)
       (save-excursion
@@ -781,21 +784,17 @@
  	  (nnvirtual-convert-headers))
  	;; Save these headers for later processing.
  	(copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
- 	(let (file)
- 	  (when (file-exists-p
- 		 (setq file (gnus-agent-article-name ".overview" group)))
- 	    (gnus-agent-braid-nov group articles file))
- 	  (gnus-make-directory (nnheader-translate-file-chars
- 				(file-name-directory file)))
-  	  (let ((coding-system-for-write
-  		 gnus-agent-file-coding-system))
-  	    (write-region (point-min) (point-max) file nil 'silent))
- 	  (gnus-agent-save-alist group articles nil)
- 	  (gnus-agent-enter-history
- 	   "last-header-fetched-for-session"
- 	   (list (cons group (nth (- (length  articles) 1) articles)))
- 	   (time-to-days (current-time)))
- 	  articles)))))
+	(when (file-exists-p file)
+	  (gnus-agent-braid-nov group articles file))
+	(let ((coding-system-for-write
+	       gnus-agent-file-coding-system))
+	  (write-region (point-min) (point-max) file nil 'silent))
+	(gnus-agent-save-alist group articles nil)
+	(gnus-agent-enter-history
+	 "last-header-fetched-for-session"
+	 (list (cons group (nth (- (length  articles) 1) articles)))
+	 (time-to-days (current-time)))
+	articles))))
 
 (defsubst gnus-agent-copy-nov-line (article)
   (let (b e)