Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 06:17:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Sat Aug 24 23:32:02 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>

Browse source 
* gnus.el (gnus-group-enter-directory): Would temporarily bind
	`nneething-read-only', shadowing the proper `defvar'.
This commit is contained in:
Lars Magne Ingebrigtsen 1996-08-24 21:38:59 +00:00
parent 2dd7b854e3
commit c415589d46
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus.el
View file

@ -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>.