# HG changeset patch
# User Lars Magne Ingebrigtsen <larsi@gnus.org>
# Date 840922739 0
# Node ID 68b9d495fe4fc531fb85b58ddab7109ad19a5111
# Parent  f415fdc67ad308c69f8dac7f2ec751bebe2da4f2
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'.

diff -r f415fdc67ad3 -r 68b9d495fe4f lisp/gnus.el
--- a/lisp/gnus.el	Sat Aug 24 21:26:03 1996 +0000
+++ b/lisp/gnus.el	Sat Aug 24 21:38:59 1996 +0000
@@ -5981,17 +5981,17 @@
 (defun gnus-group-enter-directory (dir)
   "Enter an ephemeral nneething group."
   (interactive "DDirectory to read: ")
-  (let* ((method (list 'nneething dir))
+  (let* ((method (list 'nneething dir (nneething-read-only t)))
 	 (leaf (gnus-group-prefixed-name
 		(file-name-nondirectory (directory-file-name dir))
 		method))
 	 (name (gnus-generate-new-group-name leaf)))
-    (let ((nneething-read-only t))
-      (or (gnus-group-read-ephemeral-group
-	   name method t
-	   (cons (current-buffer) (if (eq major-mode 'gnus-summary-mode)
-				      'summary 'group)))
-	  (error "Couldn't enter %s" dir)))))
+    (unless (gnus-group-read-ephemeral-group
+	     name method t
+	     (cons (current-buffer)
+		   (if (eq major-mode 'gnus-summary-mode)
+		       'summary 'group)))
+      (error "Couldn't enter %s" dir))))
 
 ;; Group sorting commands
 ;; Suggested by Joe Hildebrand <hildjj@idaho.fuentez.com>.