Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmh.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents fe104dbd9147
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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 (when nnmail-cache-accepted-message-ids
294 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
294 (prog1 295 (prog1
295 (if (stringp group) 296 (if (stringp group)
296 (and 297 (and
297 (nnmail-activate 'nnmh) 298 (nnmail-activate 'nnmh)
298 (car (nnmh-save-mail 299 (car (nnmh-save-mail
300 noinsert))) 301 noinsert)))
301 (and 302 (and
302 (nnmail-activate 'nnmh) 303 (nnmail-activate 'nnmh)
303 (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number) 304 (car (nnmh-save-mail (nnmail-article-group 'nnmh-active-number)
304 noinsert)))) 305 noinsert))))
305 (when last 306 (when (and last nnmail-cache-accepted-message-ids)
306 (nnmail-cache-close)))) 307 (nnmail-cache-close))))
307 308
308 (deffoo nnmh-request-replace-article (article group buffer) 309 (deffoo nnmh-request-replace-article (article group buffer)
309 (nnmh-possibly-change-directory group) 310 (nnmh-possibly-change-directory group)
310 (save-excursion 311 (save-excursion