Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndir.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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))))
68 (push `(nndir-current-group 66 (push `(nndir-current-group
69 ,(file-name-nondirectory (directory-file-name nndir-directory))) 67 ,(file-name-nondirectory (directory-file-name nndir-directory)))
70 defs) 68 defs)
71 (push `(nndir-top-directory 69 (push `(nndir-top-directory
72 ,(file-name-directory (directory-file-name nndir-directory))) 70 ,(file-name-directory (directory-file-name nndir-directory)))