Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnweb.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents ec9a17fef872
children 585fb297b004
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
100 (nnheader-insert-nov header))) 100 (nnheader-insert-nov header)))
101 'nov))) 101 'nov)))
102 102
103 (deffoo nnweb-request-scan (&optional group server) 103 (deffoo nnweb-request-scan (&optional group server)
104 (nnweb-possibly-change-server group server) 104 (nnweb-possibly-change-server group server)
105 (setq nnweb-hashtb (gnus-make-hashtable 4095))
105 (funcall (nnweb-definition 'map)) 106 (funcall (nnweb-definition 'map))
106 (unless nnweb-ephemeral-p 107 (unless nnweb-ephemeral-p
107 (nnweb-write-active) 108 (nnweb-write-active)
108 (nnweb-write-overview group))) 109 (nnweb-write-overview group)))
109 110
209 "Read the overview of GROUP and build the map." 210 "Read the overview of GROUP and build the map."
210 (when (file-exists-p (nnweb-overview-file group)) 211 (when (file-exists-p (nnweb-overview-file group))
211 (nnheader-temp-write nil 212 (nnheader-temp-write nil
212 (nnheader-insert-file-contents (nnweb-overview-file group)) 213 (nnheader-insert-file-contents (nnweb-overview-file group))
213 (goto-char (point-min)) 214 (goto-char (point-min))
214 (setq nnweb-hashtb (gnus-make-hashtable
215 (count-lines (point-min) (point-max))))
216 (let (header) 215 (let (header)
217 (while (not (eobp)) 216 (while (not (eobp))
218 (setq header (nnheader-parse-nov)) 217 (setq header (nnheader-parse-nov))
219 (forward-line 1) 218 (forward-line 1)
220 (push (list (mail-header-number header) 219 (push (list (mail-header-number header)