Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmh.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children c53a95d3c46d
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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)