Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 0132846995bd
children
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
539 539
540 ;; Function rewritten from rmail.el. 540 ;; Function rewritten from rmail.el.
541 (defun nnmail-move-inbox (inbox) 541 (defun nnmail-move-inbox (inbox)
542 "Move INBOX to `nnmail-crash-box'." 542 "Move INBOX to `nnmail-crash-box'."
543 (if (not (file-writable-p nnmail-crash-box)) 543 (if (not (file-writable-p nnmail-crash-box))
544 (gnus-error 1 "Can't write to crash box %s. Not moving mail." 544 (gnus-error 1 "Can't write to crash box %s. Not moving mail"
545 nnmail-crash-box) 545 nnmail-crash-box)
546 ;; If the crash box exists and is empty, we delete it. 546 ;; If the crash box exists and is empty, we delete it.
547 (when (and (file-exists-p nnmail-crash-box) 547 (when (and (file-exists-p nnmail-crash-box)
548 (zerop (nnheader-file-size (file-truename nnmail-crash-box)))) 548 (zerop (nnheader-file-size (file-truename nnmail-crash-box))))
549 (delete-file nnmail-crash-box)) 549 (delete-file nnmail-crash-box))