1 |
;;; nnspool.el --- spool access for GNU Emacs |
;;; nnspool.el --- spool access for GNU Emacs |
2 |
|
|
3 |
;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, |
;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, |
4 |
;; 2000, 2002 |
;; 2000, 2002, 2003 |
5 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
6 |
|
|
7 |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
8 |
;; Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Lars Magne Ingebrigtsen <larsi@gnus.org> |
9 |
;; Keywords: news |
;; Keywords: news |
10 |
|
|
11 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
50 |
(defvoo nnspool-nov-directory (concat nnspool-spool-directory "over.view/") |
(defvoo nnspool-nov-directory (concat nnspool-spool-directory "over.view/") |
51 |
"Local news nov directory.") |
"Local news nov directory.") |
52 |
|
|
53 |
(defvoo nnspool-lib-dir "/usr/lib/news/" |
(defvoo nnspool-lib-dir |
54 |
|
(if (file-exists-p "/usr/lib/news/active") |
55 |
|
"/usr/lib/news/" |
56 |
|
"/var/lib/news/") |
57 |
"Where the local news library files are stored.") |
"Where the local news library files are stored.") |
58 |
|
|
59 |
(defvoo nnspool-active-file (concat nnspool-lib-dir "active") |
(defvoo nnspool-active-file (concat nnspool-lib-dir "active") |
72 |
"Local news active date file.") |
"Local news active date file.") |
73 |
|
|
74 |
(defvoo nnspool-large-newsgroup 50 |
(defvoo nnspool-large-newsgroup 50 |
75 |
"The number of the articles which indicates a large newsgroup. |
"The number of articles which indicates a large newsgroup. |
76 |
If the number of the articles is greater than the value, verbose |
If the number of articles is greater than the value, verbose |
77 |
messages will be shown to indicate the current status.") |
messages will be shown to indicate the current status.") |
78 |
|
|
79 |
(defvoo nnspool-nov-is-evil nil |
(defvoo nnspool-nov-is-evil nil |
364 |
(let ((nov (nnheader-group-pathname |
(let ((nov (nnheader-group-pathname |
365 |
nnspool-current-group nnspool-nov-directory ".overview")) |
nnspool-current-group nnspool-nov-directory ".overview")) |
366 |
(arts articles) |
(arts articles) |
367 |
(nnheader-file-coding-system nnspool-file-coding-system) |
(nnheader-file-coding-system nnspool-file-coding-system) |
368 |
last) |
last) |
369 |
(if (not (file-exists-p nov)) |
(if (not (file-exists-p nov)) |
370 |
() |
() |