Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmbox.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
307 (when nnmail-cache-accepted-message-ids 307 (when nnmail-cache-accepted-message-ids
308 (nnmail-cache-insert (nnmail-fetch-field "message-id"))) 308 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
309 (setq result (if (stringp group) 309 (setq result (if (stringp group)
310 (list (cons group (nnmbox-active-number group))) 310 (list (cons group (nnmbox-active-number group)))
311 (nnmail-article-group 'nnmbox-active-number))) 311 (nnmail-article-group 'nnmbox-active-number)))
312 (if (null result) 312 (if (and (null result)
313 (yes-or-no-p "Moved to `junk' group; delete article? "))
313 (setq result 'junk) 314 (setq result 'junk)
314 (setq result (car (nnmbox-save-mail result))))) 315 (setq result (car (nnmbox-save-mail result)))))
315 (save-excursion 316 (save-excursion
316 (set-buffer nnmbox-mbox-buffer) 317 (set-buffer nnmbox-mbox-buffer)
317 (goto-char (point-max)) 318 (goto-char (point-max))