diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-08-24 21:38:59 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-08-24 21:38:59 +0000 |
| commit | c415589d46b8ae60f8d045dfcd8ea063fa97e88a (patch) | |
| tree | c0e8f8bdab13d110d31883ad36939108b3d69aad /lisp/gnus.el | |
| parent | 2dd7b854e3cc54117e51477720d49ef35141956a (diff) | |
| download | emacs-c415589d46b8ae60f8d045dfcd8ea063fa97e88a.tar.gz | |
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'.
Diffstat (limited to 'lisp/gnus.el')
| -rw-r--r-- | lisp/gnus.el | 14 |
1 files 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 <hildjj@idaho.fuentez.com>. |