Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnweb.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents ec9a17fef872
children 8d2a9b52c682
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
131 "211 %d %d %d %s\n" (length nnweb-articles) 131 "211 %d %d %d %s\n" (length nnweb-articles)
132 (car active) (cdr active) group))))) 132 (car active) (cdr active) group)))))
133 133
134 (deffoo nnweb-close-group (group &optional server) 134 (deffoo nnweb-close-group (group &optional server)
135 (nnweb-possibly-change-server group server) 135 (nnweb-possibly-change-server group server)
136 (when (gnus-buffer-live-p nnweb-buffer) 136 (when (buffer-live-p nnweb-buffer)
137 (save-excursion 137 (save-excursion
138 (set-buffer nnweb-buffer) 138 (set-buffer nnweb-buffer)
139 (set-buffer-modified-p nil) 139 (set-buffer-modified-p nil)
140 (kill-buffer nnweb-buffer))) 140 (kill-buffer nnweb-buffer)))
141 t) 141 t)
164 (nnheader-report 'nnweb "Fetched article %s" article) 164 (nnheader-report 'nnweb "Fetched article %s" article)
165 t)))) 165 t))))
166 166
167 (deffoo nnweb-close-server (&optional server) 167 (deffoo nnweb-close-server (&optional server)
168 (when (and (nnweb-server-opened server) 168 (when (and (nnweb-server-opened server)
169 (gnus-buffer-live-p nnweb-buffer)) 169 (buffer-live-p nnweb-buffer))
170 (save-excursion 170 (save-excursion
171 (set-buffer nnweb-buffer) 171 (set-buffer nnweb-buffer)
172 (set-buffer-modified-p nil) 172 (set-buffer-modified-p nil)
173 (kill-buffer nnweb-buffer))) 173 (kill-buffer nnweb-buffer)))
174 (nnoo-close-server 'nnweb server)) 174 (nnoo-close-server 'nnweb server))
272 (not (equal group nnweb-group))) 272 (not (equal group nnweb-group)))
273 (nnweb-request-group group nil t)))) 273 (nnweb-request-group group nil t))))
274 274
275 (defun nnweb-init (server) 275 (defun nnweb-init (server)
276 "Initialize buffers and such." 276 "Initialize buffers and such."
277 (unless (gnus-buffer-live-p nnweb-buffer) 277 (unless (buffer-live-p nnweb-buffer)
278 (setq nnweb-buffer 278 (setq nnweb-buffer
279 (save-excursion 279 (save-excursion
280 (nnheader-set-temp-buffer 280 (nnheader-set-temp-buffer
281 (format " *nnweb %s %s %s*" nnweb-type nnweb-search server)))))) 281 (format " *nnweb %s %s %s*" nnweb-type nnweb-search server))))))
282 282
293 (nnweb-url-retrieve-asynch 293 (nnweb-url-retrieve-asynch
294 url 'nnweb-callback (current-buffer) nnheader-callback-function) 294 url 'nnweb-callback (current-buffer) nnheader-callback-function)
295 t))) 295 t)))
296 296
297 (defun nnweb-callback (buffer callback) 297 (defun nnweb-callback (buffer callback)
298 (when (gnus-buffer-live-p url-working-buffer) 298 (when (buffer-live-p url-working-buffer)
299 (save-excursion 299 (save-excursion
300 (set-buffer url-working-buffer) 300 (set-buffer url-working-buffer)
301 (funcall (nnweb-definition 'article)) 301 (funcall (nnweb-definition 'article))
302 (nnweb-decode-entities) 302 (nnweb-decode-entities)
303 (set-buffer buffer) 303 (set-buffer buffer)