Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndir.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
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)))