From e192281baae377a8702f3c048fce988d63ccfc1a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 13 Apr 2015 21:30:27 -0400 Subject: (gnus-group--setup-tool-bar-update): Fix last change * lisp/gnus/gnus-group.el (gnus-group--setup-tool-bar-update): cursor-sensor-functions should be a list of functions. --- lisp/gnus/gnus-uu.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/gnus/gnus-uu.el') diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el index 55a881c7d18..f5d44959391 100644 --- a/lisp/gnus/gnus-uu.el +++ b/lisp/gnus/gnus-uu.el @@ -875,8 +875,13 @@ When called interactively, prompt for REGEXP." (goto-char (setq beg (point-max))) (save-excursion (save-restriction + ;; FIXME: We save excursion and restriction in "*gnus-uu-body*", + ;; only to immediately move to another buffer? And we narrow in + ;; that buffer without save-restriction? And we finish the + ;; save-restriction with a call to `widen'? How can that + ;; make sense? (set-buffer buffer) - (let (buffer-read-only) + (let ((inhibit-read-only t)) (set-text-properties (point-min) (point-max) nil) ;; These two are necessary for XEmacs 19.12 fascism. (put-text-property (point-min) (point-max) 'invisible nil) -- cgit v1.2.3