Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnml.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
311 311
312 (deffoo nnml-request-accept-article (group &optional server last) 312 (deffoo nnml-request-accept-article (group &optional server last)
313 (nnml-possibly-change-directory group server) 313 (nnml-possibly-change-directory group server)
314 (nnmail-check-syntax) 314 (nnmail-check-syntax)
315 (let (result) 315 (let (result)
316 (when nnmail-cache-accepted-message-ids
317 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
316 (if (stringp group) 318 (if (stringp group)
317 (and 319 (and
318 (nnmail-activate 'nnml) 320 (nnmail-activate 'nnml)
319 (setq result (car (nnml-save-mail 321 (setq result (car (nnml-save-mail
320 (list (cons group (nnml-active-number group)))))) 322 (list (cons group (nnml-active-number group))))))
325 (nnmail-activate 'nnml) 327 (nnmail-activate 'nnml)
326 (setq result (car (nnml-save-mail 328 (setq result (car (nnml-save-mail
327 (nnmail-article-group 'nnml-active-number)))) 329 (nnmail-article-group 'nnml-active-number))))
328 (when last 330 (when last
329 (nnmail-save-active nnml-group-alist nnml-active-file) 331 (nnmail-save-active nnml-group-alist nnml-active-file)
332 (when nnmail-cache-accepted-message-ids
333 (nnmail-cache-close))
330 (nnml-save-nov)))) 334 (nnml-save-nov))))
331 result)) 335 result))
332 336
333 (deffoo nnml-request-replace-article (article group buffer) 337 (deffoo nnml-request-replace-article (article group buffer)
334 (nnml-possibly-change-directory group) 338 (nnml-possibly-change-directory group)