Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmh.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
288 result)) 288 result))
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 (if (stringp group) 293 (when nnmail-cache-accepted-message-ids
294 (and 294 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
295 (nnmail-activate 'nnmh) 295 (prog1
296 (car (nnmh-save-mail 296 (if (stringp group)
297 (list (cons group (nnmh-active-number group))) 297 (and
298 noinsert))) 298 (nnmail-activate 'nnmh)
299 (and 299 (car (nnmh-save-mail
300 (nnmail-activate 'nnmh) 300 (list (cons group (nnmh-active-number group)))
301 (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number) 301 noinsert)))
302 noinsert))))) 302 (and
303 (nnmail-activate 'nnmh)
304 (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number)
305 noinsert))))
306 (when (and last nnmail-cache-accepted-message-ids)
307 (nnmail-cache-close))))
303 308
304 (deffoo nnmh-request-replace-article (article group buffer) 309 (deffoo nnmh-request-replace-article (article group buffer)
305 (nnmh-possibly-change-directory group) 310 (nnmh-possibly-change-directory group)
306 (save-excursion 311 (save-excursion
307 (set-buffer buffer) 312 (set-buffer buffer)