From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/16355 Path: main.gmane.org!not-for-mail From: Tatsuya Ichikawa Newsgroups: gmane.emacs.gnus.general Subject: .overview file when using gnus-agent. Date: 28 Aug 1998 17:32:04 +0900 Organization: Semi-gnus Org. =?ISO-2022-JP?B?GyRCQ2ZJdDtZSXQbKEI=?= Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by WEMI 1.8.5 - "Higashi-Tagonoura") Content-Type: multipart/mixed; boundary="Multipart_Fri_Aug_28_17:32:04_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035155240 27273 80.91.224.250 (20 Oct 2002 23:07:20 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:07:20 +0000 (UTC) Return-Path: Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id EAA23498 for ; Fri, 28 Aug 1998 04:32:01 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id DAF07509; Fri, 28 Aug 1998 03:03:04 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 28 Aug 1998 03:31:38 -0500 (CDT) 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 DAA17282 for ; Fri, 28 Aug 1998 03:31:20 -0500 (CDT) Original-Received: from epsongw2.epson.co.jp (epsongw2.epson.co.jp [202.248.17.20]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id EAA23482 for ; Fri, 28 Aug 1998 04:31:14 -0400 (EDT) Original-Received: from epsongw.epson.co.jp by epsongw2.epson.co.jp (8.8.8+2.7Wbeta7/3.6W-98061119) id RAA13320; Fri, 28 Aug 1998 17:31:12 +0900 (JST) Original-Received: from hv.epson.co.jp by epsongw.epson.co.jp (8.8.8+2.7Wbeta7/3.6W98042410) id RAA02250 for ; Fri, 28 Aug 1998 17:31:12 +0900 (JST) Original-Received: from hv08.hv.epson.co.jp (hv08 [163.141.23.108]) by hv.epson.co.jp (8.9.1/3.7W-nomx) with ESMTP id IAA29110 for ; Fri, 28 Aug 1998 08:31:06 GMT Original-To: Gnus ML X-MimeOLE: Produced By FLAM-DOODLE 1.9.1 - =?ISO-2022-JP?B?IhskQjIrQzAbKEIi?= 10R5.5/14.0 X-Face-Version: X-Face utility v1.3.2 - "The Fool On The Hill" with Select X-Face v0.09 - "Figure Of Eight" X-Face: )@S%lkEM.>!A/-!cMWjA!?5>bQ4q^}xw+"Jkd%xRgh)>nh#p]U^<$KYjozZd"8.NJsmi?i# $q?SQUm$/V!%y"ib&I{?2iKd1Q!g4{fv8q$'q3cr:NIUL('C2^9 MvP=l3cVR`%:nF~|XkxNi9}?_8XS8C)zs!h1vrxf?l1IfG[+W>X\OJY=qdsodGAk!BJae3T:pHQ\_W |$Xtu$URQi"E"Dz5zKMg`9E1oO30F?g X-Ya-Pop3: Multiple POP3 account utiliy for Gnus v1.10 - "Blood line" X-Emacs: Emacs 20.2, MULE 3.0 =?ISO-2022-JP?B?KBskQjlITVUybBsoQiks?= Meadow-1.01 =?ISO-2022-JP?B?KBskQj9pRzU8bhsoQik=?= Original-Lines: 157 User-Agent: T-gnus/6.8.16 Emacs/20.2 MULE/3.0 =?ISO-2022-JP?B?KBskQjlIGyhC?= =?ISO-2022-JP?B?GyRCTVUybBsoQik=?= Meadow/1.01 =?ISO-2022-JP?B?KA==?= =?ISO-2022-JP?B?GyRCP2lHNTxuGyhCKQ==?= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:16355 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:16355 --Multipart_Fri_Aug_28_17:32:04_1998-1 Content-Type: text/plain; charset=US-ASCII I've post gnus-agent.el's patch to expire correctly connecting to News server which does not return Xref field. But in gnus-5.6.41 , these code removed. Why?? Any reason?? Here is a patch. ;; Oops , Please correct comment ... Semi-gnus -> Gnus. ;; Sorry... --Multipart_Fri_Aug_28_17:32:04_1998-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="gnus-agent.el.diff" Content-Transfer-Encoding: 7bit *** gnus-agent.el Thu Aug 27 18:03:58 1998 --- /ichikawa/emacs-lisp/semi-gnus-ichikawa/lisp/gnus-agent.el Thu Aug 27 21:30:54 1998 *************** *** 1,4 **** ! ;;; gnus-agent.el --- unplugged support for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen --- 1,4 ---- ! ;;; gnus-agent.el --- unplugged support for Semi-gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen *************** *** 129,135 **** "Load FILE and do a `read' there." (nnheader-temp-write nil (ignore-errors ! (insert-file-contents file) (goto-char (point-min)) (read (current-buffer))))) --- 129,135 ---- "Load FILE and do a `read' there." (nnheader-temp-write nil (ignore-errors ! (nnheader-insert-file-contents file) (goto-char (point-min)) (read (current-buffer))))) *************** *** 539,545 **** (gnus-make-directory (file-name-directory file)) (nnheader-temp-write file (when (file-exists-p file) ! (insert-file-contents file)) (goto-char (point-min)) (if nntp-server-list-active-group (progn --- 539,545 ---- (gnus-make-directory (file-name-directory file)) (nnheader-temp-write file (when (file-exists-p file) ! (nnheader-insert-file-contents file)) (goto-char (point-min)) (if nntp-server-list-active-group (progn *************** *** 728,734 **** (when (= (point-max) (point-min)) (push (cons group (current-buffer)) gnus-agent-buffer-alist) (ignore-errors ! (insert-file-contents (gnus-agent-article-name ".overview" group)))) (nnheader-find-nov-line (string-to-number (cdar crosses))) (insert (string-to-number (cdar crosses))) --- 728,734 ---- (when (= (point-max) (point-min)) (push (cons group (current-buffer)) gnus-agent-buffer-alist) (ignore-errors ! (nnheader-insert-file-contents (gnus-agent-article-name ".overview" group)))) (nnheader-find-nov-line (string-to-number (cdar crosses))) (insert (string-to-number (cdar crosses))) *************** *** 762,767 **** --- 762,772 ---- (set-buffer nntp-server-buffer) (unless (eq 'nov (gnus-retrieve-headers articles group)) (nnvirtual-convert-headers)) + (goto-char (point-min)) + (while (not (eobp)) + (goto-char (point-at-eol)) + (insert "\t") + (forward-line 1)) ;; Save these headers for later processing. (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max)) (let (file) *************** *** 795,801 **** (goto-char (point-min)) (set-buffer nntp-server-buffer) (erase-buffer) ! (insert-file-contents file) (goto-char (point-max)) (if (or (= (point-min) (point-max)) (progn --- 800,806 ---- (goto-char (point-min)) (set-buffer nntp-server-buffer) (erase-buffer) ! (nnheader-insert-file-contents file) (goto-char (point-max)) (if (or (= (point-min) (point-max)) (progn *************** *** 1302,1315 **** (cdr (assq 'dormant (gnus-info-marks info))))) nov-file (gnus-agent-article-name ".overview" group)) ! (gnus-agent-load-alist group) (gnus-message 5 "Expiring articles in %s" group) (set-buffer overview) (erase-buffer) (when (file-exists-p nov-file) ! (insert-file-contents nov-file)) (goto-char (point-min)) ! (setq article 0) (while (setq elem (pop articles)) (setq article (car elem)) (when (or (null low) --- 1307,1320 ---- (cdr (assq 'dormant (gnus-info-marks info))))) nov-file (gnus-agent-article-name ".overview" group)) ! (gnus-agent-load-alist group) (gnus-message 5 "Expiring articles in %s" group) (set-buffer overview) (erase-buffer) (when (file-exists-p nov-file) ! (nnheader-insert-file-contents nov-file)) (goto-char (point-min)) ! (setq article 0) (while (setq elem (pop articles)) (setq article (car elem)) (when (or (null low) --Multipart_Fri_Aug_28_17:32:04_1998-1 Content-Type: text/plain; charset=US-ASCII -- Tatsuya Ichikawa # PGP Public Key : See X-Info header in this message. --Multipart_Fri_Aug_28_17:32:04_1998-1--