/[emacs]/emacs/lisp/gnus/nnspool.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnspool.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.4.2 by miles, Tue Oct 14 23:34:51 2003 UTC revision 1.5.4.3 by miles, Thu Sep 16 00:12:16 2004 UTC
# Line 1  Line 1 
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.
# Line 50  If you are using Cnews, you probably sho Line 50  If you are using Cnews, you probably sho
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")
# Line 69  If you are using Cnews, you probably sho Line 72  If you are using Cnews, you probably sho
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
# Line 361  there.") Line 364  there.")
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            ()            ()

Legend:
Removed from v.1.5.4.2  
changed lines
  Added in v.1.5.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26