Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndir.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents e04119814345
children 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; nndir.el --- single directory newsgroup access for Gnus 1 ;;; nndir.el --- single directory newsgroup access for Gnus
2 ;; Copyright (C) 1995,96,97 Free Software Foundation, Inc. 2 ;; Copyright (C) 1995,96 Free Software Foundation, Inc.
3 3
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
5 ;; Keywords: news 5 ;; Keywords: news
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
61 (setq nndir-directory 61 (setq nndir-directory
62 (or (cadr (assq 'nndir-directory defs)) 62 (or (cadr (assq 'nndir-directory defs))
63 server)) 63 server))
64 (unless (assq 'nndir-directory defs) 64 (unless (assq 'nndir-directory defs)
65 (push `(nndir-directory ,server) defs)) 65 (push `(nndir-directory ,server) defs))
66 ;(when (equal server "")
67 ; (setq server (cadr (assq 'nndir-directory defs))))
66 (push `(nndir-current-group 68 (push `(nndir-current-group
67 ,(file-name-nondirectory (directory-file-name nndir-directory))) 69 ,(file-name-nondirectory (directory-file-name nndir-directory)))
68 defs) 70 defs)
69 (push `(nndir-top-directory 71 (push `(nndir-top-directory
70 ,(file-name-directory (directory-file-name nndir-directory))) 72 ,(file-name-directory (directory-file-name nndir-directory)))
71 defs) 73 defs)
72 (nnoo-change-server 'nndir server defs) 74 (nnoo-change-server 'nndir server defs)
73 (let (err) 75 (let (err)
74 (cond 76 (cond
75 ((not (condition-case arg 77 ((not (condition-case arg
76 (file-exists-p nndir-directory) 78 (file-exists-p nndir-directory)
77 (ftp-error (setq err (format "%s" arg))))) 79 (ftp-error (setq err (format "%s" arg)))))
78 (nndir-close-server) 80 (nndir-close-server)
79 (nnheader-report 81 (nnheader-report
80 'nndir (or err "No such file or directory: %s" nndir-directory))) 82 'nndir (or err "No such file or directory: %s" nndir-directory)))
81 ((not (file-directory-p (file-truename nndir-directory))) 83 ((not (file-directory-p (file-truename nndir-directory)))
82 (nndir-close-server) 84 (nndir-close-server)
83 (nnheader-report 'nndir "Not a directory: %s" nndir-directory)) 85 (nnheader-report 'nndir "Not a directory: %s" nndir-directory))
84 (t 86 (t
88 90
89 (nnoo-map-functions nndir 91 (nnoo-map-functions nndir
90 (nnml-retrieve-headers 0 nndir-current-group 0 0) 92 (nnml-retrieve-headers 0 nndir-current-group 0 0)
91 (nnmh-request-article 0 nndir-current-group 0 0) 93 (nnmh-request-article 0 nndir-current-group 0 0)
92 (nnmh-request-group nndir-current-group 0 0) 94 (nnmh-request-group nndir-current-group 0 0)
93 (nnml-close-group nndir-current-group 0) 95 (nnmh-close-group nndir-current-group 0)
94 (nnmh-request-list (nnoo-current-server 'nndir) nndir-directory) 96 (nnmh-request-list (nnoo-current-server 'nndir) nndir-directory)
95 (nnmh-request-newsgroups (nnoo-current-server 'nndir) nndir-directory)) 97 (nnmh-request-newsgroups (nnoo-current-server 'nndir) nndir-directory))
96 98
97 (provide 'nndir) 99 (provide 'nndir)
98 100