From c0399d9edb62cc1e53233bc45ec6fc80b7bac6f5 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 20 Aug 1999 09:57:56 +0000 Subject: [PATCH] (gnus-wheel-summary-scroll): Bind `inhibit-read-only' to t; bind `buffer-read-only' to nil. --- lisp/gnus-sum.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4