Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndir.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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