Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents b980b6286996
children 59463afc5666
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
543 nnmail-crash-box) 543 nnmail-crash-box)
544 ;; If the crash box exists and is empty, we delete it. 544 ;; If the crash box exists and is empty, we delete it.
545 (when (and (file-exists-p nnmail-crash-box) 545 (when (and (file-exists-p nnmail-crash-box)
546 (zerop (nnheader-file-size (file-truename nnmail-crash-box)))) 546 (zerop (nnheader-file-size (file-truename nnmail-crash-box))))
547 (delete-file nnmail-crash-box)) 547 (delete-file nnmail-crash-box))
548 (let ((inbox (file-truename (expand-file-name inbox))) 548 (let ((tofile (file-truename (expand-file-name nnmail-crash-box)))
549 (tofile (file-truename (expand-file-name nnmail-crash-box))) 549 (popmail (string-match "^po:" inbox))
550 movemail popmail errors result) 550 movemail errors result)
551 (if (setq popmail (string-match 551 (unless popmail
552 "^po:" (file-name-nondirectory inbox))) 552 (setq inbox (file-truename (expand-file-name inbox)))
553 (setq inbox (file-name-nondirectory inbox))
554 (setq movemail t) 553 (setq movemail t)
555 ;; On some systems, /usr/spool/mail/foo is a directory 554 ;; On some systems, /usr/spool/mail/foo is a directory
556 ;; and the actual inbox is /usr/spool/mail/foo/foo. 555 ;; and the actual inbox is /usr/spool/mail/foo/foo.
557 (when (file-directory-p inbox) 556 (when (file-directory-p inbox)
558 (setq inbox (expand-file-name (user-login-name) inbox)))) 557 (setq inbox (expand-file-name (user-login-name) inbox))))