Commit c415589d authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

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'.
parent 2dd7b854
...@@ -5981,17 +5981,17 @@ score file entries for articles to include in the group." ...@@ -5981,17 +5981,17 @@ score file entries for articles to include in the group."
(defun gnus-group-enter-directory (dir) (defun gnus-group-enter-directory (dir)
"Enter an ephemeral nneething group." "Enter an ephemeral nneething group."
(interactive "DDirectory to read: ") (interactive "DDirectory to read: ")
(let* ((method (list 'nneething dir)) (let* ((method (list 'nneething dir (nneething-read-only t)))
(leaf (gnus-group-prefixed-name (leaf (gnus-group-prefixed-name
(file-name-nondirectory (directory-file-name dir)) (file-name-nondirectory (directory-file-name dir))
method)) method))
(name (gnus-generate-new-group-name leaf))) (name (gnus-generate-new-group-name leaf)))
(let ((nneething-read-only t)) (unless (gnus-group-read-ephemeral-group
(or (gnus-group-read-ephemeral-group name method t
name method t (cons (current-buffer)
(cons (current-buffer) (if (eq major-mode 'gnus-summary-mode) (if (eq major-mode 'gnus-summary-mode)
'summary 'group))) 'summary 'group)))
(error "Couldn't enter %s" dir))))) (error "Couldn't enter %s" dir))))
   
;; Group sorting commands ;; Group sorting commands
;; Suggested by Joe Hildebrand <hildjj@idaho.fuentez.com>. ;; Suggested by Joe Hildebrand <hildjj@idaho.fuentez.com>.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment