Mercurial > hg > xemacs-beta

comparison lisp/gnus/nneething.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents e04119814345
children 1a767b41a199
comparison
equal deleted inserted replaced
33:9ee3cade837d 34:d620409f5eb8
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