Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndir.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents cf808b4c4290
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
71 (push `(nndir-top-directory 71 (push `(nndir-top-directory
72 ,(file-name-directory (directory-file-name nndir-directory))) 72 ,(file-name-directory (directory-file-name nndir-directory)))
73 defs) 73 defs)
74 (nnoo-change-server 'nndir server defs) 74 (nnoo-change-server 'nndir server defs)
75 (let (err) 75 (let (err)
76 (cond 76 (cond
77 ((not (condition-case arg 77 ((not (condition-case arg
78 (file-exists-p nndir-directory) 78 (file-exists-p nndir-directory)
79 (ftp-error (setq err (format "%s" arg))))) 79 (ftp-error (setq err (format "%s" arg)))))
80 (nndir-close-server) 80 (nndir-close-server)
81 (nnheader-report 81 (nnheader-report
82 'nndir (or err "No such file or directory: %s" nndir-directory))) 82 'nndir (or err "No such file or directory: %s" nndir-directory)))
83 ((not (file-directory-p (file-truename nndir-directory))) 83 ((not (file-directory-p (file-truename nndir-directory)))
84 (nndir-close-server) 84 (nndir-close-server)
85 (nnheader-report 'nndir "Not a directory: %s" nndir-directory)) 85 (nnheader-report 'nndir "Not a directory: %s" nndir-directory))
86 (t 86 (t