(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 (file)
--- 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))