From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18500 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: patch: gnus-agent Date: 11 Nov 1998 02:26:54 -0500 Organization: Computer Dept of U Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2nww52d70h.fsf@zsh.cs.rochester.edu> NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035157013 6456 80.91.224.250 (20 Oct 2002 23:36:53 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:36:53 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id CAA24623 for ; Wed, 11 Nov 1998 02:20:05 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id BAB02076; Wed, 11 Nov 1998 01:19:57 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 11 Nov 1998 01:19:53 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id BAA01787 for ; Wed, 11 Nov 1998 01:19:43 -0600 (CST) Original-Received: from cayuga.cs.rochester.edu (cayuga.cs.rochester.edu [192.5.53.209]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id CAA24615 for ; Wed, 11 Nov 1998 02:19:37 -0500 (EST) Original-Received: from slate.cs.rochester.edu (slate.cs.rochester.edu [192.5.53.101]) by cayuga.cs.rochester.edu (8.6.9/O) with ESMTP id CAA29445 for ; Wed, 11 Nov 1998 02:19:35 -0500 Original-Received: from brain.cs.rochester.edu (heart.cs.rochester.edu [192.5.53.109]) by slate.cs.rochester.edu (8.6.9/O) with ESMTP id CAA00687 for ; Wed, 11 Nov 1998 02:19:22 -0500 Original-Received: (from zsh@localhost) by brain.cs.rochester.edu (8.9.0/8.8.5) id CAA00956; Wed, 11 Nov 1998 02:26:55 -0500 Original-To: ding@gnus.org X-Attribution: ZSH X-Face: 'IF:e51ib'Qbl^(}l^&4-J`'P!@[4~O|&k#:@Gld#b/]oMq&`&FVY._3+b`mzp~Jeve~/#/ ERD!OTe<86UhyN=l`mrPY)M7_}`Ktt\K+58Z!hu7>qU,i.N7TotU[FYE(f1;}`g2xj!u*l`^&=Q!g{ *q|ddto|nkt"$r,K$[)"|6,elPH= GJ6Q Original-Lines: 72 User-Agent: Gnus/5.070042 (Pterodactyl Gnus v0.42) XEmacs/20.4 (Emerald) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:18500 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18500 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 + + * gnus-agent.el (gnus-agent-fetch-headers): Create directory even + when no articles. + Sun Nov 8 23:17:24 1998 Lars Magne Ingebrigtsen * 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)