Mercurial > emacs

comparison lisp/gnus.el @ 15915:cba4fbcb4aa0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-group-enter-directory): Virtual server definition list wasn't quoted.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 24 Aug 1996 23:22:22 +0000
parents 68b9d495fe4f
children 66d74ded252a
comparison
equal deleted inserted replaced
15914:68b9d495fe4f 15915:cba4fbcb4aa0
5979 (gnus-group-position-point))) 5979 (gnus-group-position-point)))
5980 5980
5981 (defun gnus-group-enter-directory (dir) 5981 (defun gnus-group-enter-directory (dir)
5982 "Enter an ephemeral nneething group." 5982 "Enter an ephemeral nneething group."
5983 (interactive "DDirectory to read: ") 5983 (interactive "DDirectory to read: ")
5984 (let* ((method (list 'nneething dir (nneething-read-only t))) 5984 (let* ((method (list 'nneething dir '(nneething-read-only t)))
5985 (leaf (gnus-group-prefixed-name 5985 (leaf (gnus-group-prefixed-name
5986 (file-name-nondirectory (directory-file-name dir)) 5986 (file-name-nondirectory (directory-file-name dir))
5987 method)) 5987 method))
5988 (name (gnus-generate-new-group-name leaf))) 5988 (name (gnus-generate-new-group-name leaf)))
5989 (unless (gnus-group-read-ephemeral-group 5989 (unless (gnus-group-read-ephemeral-group