From: ueno <ueno>
Date: Fri, 20 Aug 1999 09:57:56 +0000 (+0000)
Subject: (gnus-wheel-summary-scroll): Bind `inhibit-read-only' to t; bind
X-Git-Tag: t-gnus-6_13_0-09~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c0399d9edb62cc1e53233bc45ec6fc80b7bac6f5;p=elisp%2Fgnus.git-

(gnus-wheel-summary-scroll): Bind `inhibit-read-only' to t; bind
`buffer-read-only' to nil.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 70f2d7c..17d38b4 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9560,12 +9560,14 @@ treated as multipart/mixed."
 		       (setq edge (* edge direction))
 		     (setq edge -1))
 		   (or (plusp edge)
-		       (progn
+		       (let ((buffer-read-only nil)
+			     (inhibit-read-only t))
 			 (put-text-property (point-min) (point-max)
 					    'gnus-wheel-edge direction)
 			 nil))
 		   (or (> edge gnus-wheel-edge-resistance)
-		       (progn
+		       (let ((buffer-read-only nil)
+			     (inhibit-read-only t))
 			 (put-text-property (point-min) (point-max)
 					    'gnus-wheel-edge
 					    (* (1+ edge) direction))