Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmh.el @ 36:c53a95d3c46d r19-15b101

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