From: Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>
Subject: .overview file when using gnus-agent.
Date: 28 Aug 1998 17:32:04 +0900 [thread overview]
Message-ID: <uyas9o6bf.fsf@hv08.hv.epson.co.jp> (raw)
[-- Attachment #1: Type: text/plain, Size: 272 bytes --]
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...
[-- Attachment #2: gnus-agent.el.diff --]
[-- Type: application/octet-stream, Size: 4193 bytes --]
*** 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 <larsi@gnus.org>
--- 1,4 ----
! ;;; gnus-agent.el --- unplugged support for Semi-gnus
;; Copyright (C) 1997,98 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
***************
*** 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)
[-- Attachment #3: Type: text/plain, Size: 106 bytes --]
--
Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>
# PGP Public Key : See X-Info header in this message.
next reply other threads:[~1998-08-28 8:32 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-08-28 8:32 Tatsuya Ichikawa [this message]
1998-08-29 10:50 ` Lars Magne Ingebrigtsen
1998-08-29 15:09 ` Tatsuya Ichikawa
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=uyas9o6bf.fsf@hv08.hv.epson.co.jp \
--to=ichikawa@hv.epson.co.jp \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).