Mercurial > emacs

comparison lisp/gnus.el @ 15914:68b9d495fe4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sat Aug 24 23:32:02 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no> * gnus.el (gnus-group-enter-directory): Would temporarily bind `nneething-read-only', shadowing the proper `defvar'.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 24 Aug 1996 21:38:59 +0000
parents 84ad859492b2
children cba4fbcb4aa0
comparison
equal deleted inserted replaced
15913:f415fdc67ad3 15914:68b9d495fe4f
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)) 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 (let ((nneething-read-only t)) 5989 (unless (gnus-group-read-ephemeral-group
5990 (or (gnus-group-read-ephemeral-group 5990 name method t
5991 name method t 5991 (cons (current-buffer)
5992 (cons (current-buffer) (if (eq major-mode 'gnus-summary-mode) 5992 (if (eq major-mode 'gnus-summary-mode)
5993 'summary 'group))) 5993 'summary 'group)))
5994 (error "Couldn't enter %s" dir))))) 5994 (error "Couldn't enter %s" dir))))
5995 5995
5996 ;; Group sorting commands 5996 ;; Group sorting commands
5997 ;; Suggested by Joe Hildebrand <hildjj@idaho.fuentez.com>. 5997 ;; Suggested by Joe Hildebrand <hildjj@idaho.fuentez.com>.
5998 5998
5999 (defun gnus-group-sort-groups (func &optional reverse) 5999 (defun gnus-group-sort-groups (func &optional reverse)