Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmh.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
289 289
290 (deffoo nnmh-request-accept-article (group &optional server last noinsert) 290 (deffoo nnmh-request-accept-article (group &optional server last noinsert)
291 (nnmh-possibly-change-directory group server) 291 (nnmh-possibly-change-directory group server)
292 (nnmail-check-syntax) 292 (nnmail-check-syntax)
293 (nnmail-cache-insert (nnmail-fetch-field "message-id")) 293 (nnmail-cache-insert (nnmail-fetch-field "message-id"))
294 (if (stringp group) 294 (prog1
295 (and 295 (if (stringp group)
296 (nnmail-activate 'nnmh) 296 (and
297 (car (nnmh-save-mail 297 (nnmail-activate 'nnmh)
298 (list (cons group (nnmh-active-number group))) 298 (car (nnmh-save-mail
299 noinsert))) 299 (list (cons group (nnmh-active-number group)))
300 (and 300 noinsert)))
301 (nnmail-activate 'nnmh) 301 (and
302 (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number) 302 (nnmail-activate 'nnmh)
303 noinsert)))) 303 (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number)
304 (when last 304 noinsert))))
305 (nnmail-cache-close))) 305 (when last
306 (nnmail-cache-close))))
306 307
307 (deffoo nnmh-request-replace-article (article group buffer) 308 (deffoo nnmh-request-replace-article (article group buffer)
308 (nnmh-possibly-change-directory group) 309 (nnmh-possibly-change-directory group)
309 (save-excursion 310 (save-excursion
310 (set-buffer buffer) 311 (set-buffer buffer)