Mercurial > hg > xemacs-beta

comparison lisp/gnus/nneething.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents fe104dbd9147
children 8619ce7e4c50
comparison
equal deleted inserted replaced
111:164ab62060bf 112:48d667d6f17f
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26
27 ;; Based on nnspool.el by Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>.
28 ;; For an overview of what the interface functions do, please see the
29 ;; Gnus sources.
30 26
31 ;;; Code: 27 ;;; Code:
32 28
33 (require 'nnheader) 29 (require 'nnheader)
34 (require 'nnmail) 30 (require 'nnmail)
37 (require 'cl) 33 (require 'cl)
38 34
39 (nnoo-declare nneething) 35 (nnoo-declare nneething)
40 36
41 (defvoo nneething-map-file-directory "~/.nneething/" 37 (defvoo nneething-map-file-directory "~/.nneething/"
42 "*Where nneething stores the map files.") 38 "Where nneething stores the map files.")
43 39
44 (defvoo nneething-map-file ".nneething" 40 (defvoo nneething-map-file ".nneething"
45 "*Name of the map files.") 41 "Name of the map files.")
46 42
47 (defvoo nneething-exclude-files nil 43 (defvoo nneething-exclude-files nil
48 "*Regexp saying what files to exclude from the group. 44 "Regexp saying what files to exclude from the group.
49 If this variable is nil, no files will be excluded.") 45 If this variable is nil, no files will be excluded.")
50 46
51 47
52 48
53 ;;; Internal variables. 49 ;;; Internal variables.
62 (defvoo nneething-group-alist nil) 58 (defvoo nneething-group-alist nil)
63 59
64 (defvoo nneething-message-id-number 0) 60 (defvoo nneething-message-id-number 0)
65 (defvoo nneething-work-buffer " *nneething work*") 61 (defvoo nneething-work-buffer " *nneething work*")
66 62
67 (defvoo nneething-directory nil)
68 (defvoo nneething-group nil) 63 (defvoo nneething-group nil)
69 (defvoo nneething-map nil) 64 (defvoo nneething-map nil)
70 (defvoo nneething-read-only nil) 65 (defvoo nneething-read-only nil)
71 (defvoo nneething-active nil) 66 (defvoo nneething-active nil)
72 67
128 (goto-char (point-min)) 123 (goto-char (point-min))
129 (nneething-make-head file (current-buffer)) ; ... or we fake some headers. 124 (nneething-make-head file (current-buffer)) ; ... or we fake some headers.
130 (insert "\n")) 125 (insert "\n"))
131 t)))) 126 t))))
132 127
133 (deffoo nneething-request-group (group &optional dir dont-check) 128 (deffoo nneething-request-group (group &optional server dont-check)
134 (nneething-possibly-change-directory group dir) 129 (nneething-possibly-change-directory group server)
135 (unless dont-check 130 (unless dont-check
136 (nneething-create-mapping) 131 (nneething-create-mapping)
137 (if (> (car nneething-active) (cdr nneething-active)) 132 (if (> (car nneething-active) (cdr nneething-active))
138 (nnheader-insert "211 0 1 0 %s\n" group) 133 (nnheader-insert "211 0 1 0 %s\n" group)
139 (nnheader-insert 134 (nnheader-insert