Mercurial > hg > xemacs-beta
diff lisp/gnus/nndir.el @ 30:ec9a17fef872 r19-15b98
Import from CVS: tag r19-15b98
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:52:29 +0200 |
parents | 1917ad0d78d7 |
children | e04119814345 |
line wrap: on
line diff
--- a/lisp/gnus/nndir.el Mon Aug 13 08:51:58 2007 +0200 +++ b/lisp/gnus/nndir.el Mon Aug 13 08:52:29 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)