From c415589d46b8ae60f8d045dfcd8ea063fa97e88a Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 24 Aug 1996 21:38:59 +0000 Subject: [PATCH] Sat Aug 24 23:32:02 1996 Lars Magne Ingebrigtsen * gnus.el (gnus-group-enter-directory): Would temporarily bind `nneething-read-only', shadowing the proper `defvar'. --- lisp/gnus.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index 40d0cf5b6ca..d3e96d28786 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -5981,17 +5981,17 @@ score file entries for articles to include in the group." (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 . -- 2.39.2