Mercurial > hg > xemacs-beta
diff lisp/gnus/nndir.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:18:39 +0200 |
parents | cf808b4c4290 |
children | fe104dbd9147 |
line wrap: on
line diff
--- a/lisp/gnus/nndir.el Mon Aug 13 09:17:27 2007 +0200 +++ b/lisp/gnus/nndir.el Mon Aug 13 09:18:39 2007 +0200 @@ -73,12 +73,12 @@ defs) (nnoo-change-server 'nndir server defs) (let (err) - (cond + (cond ((not (condition-case arg (file-exists-p nndir-directory) (ftp-error (setq err (format "%s" arg))))) (nndir-close-server) - (nnheader-report + (nnheader-report 'nndir (or err "No such file or directory: %s" nndir-directory))) ((not (file-directory-p (file-truename nndir-directory))) (nndir-close-server)