From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51725 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: mouse wheel Date: Tue, 22 Apr 2003 13:46:45 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1050986852 20194 80.91.224.249 (22 Apr 2003 04:47:32 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 22 Apr 2003 04:47:32 +0000 (UTC) Original-X-From: ding-owner+M268@lists.math.uh.edu Tue Apr 22 06:47:30 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 197pgn-0005FW-00 for ; Tue, 22 Apr 2003 06:47:30 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 197pgZ-0001MW-00; Mon, 21 Apr 2003 23:47:15 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 197pgU-0001MR-00 for ding@lists.math.uh.edu; Mon, 21 Apr 2003 23:47:10 -0500 Original-Received: (qmail 49141 invoked by alias); 22 Apr 2003 04:47:09 -0000 Original-Received: (qmail 49136 invoked from network); 22 Apr 2003 04:47:09 -0000 Original-Received: from java.hostforweb.net (66.197.222.237) by sclp3.sclp.com with SMTP; 22 Apr 2003 04:47:09 -0000 Original-Received: from yamaokac by java.hostforweb.net with local (Exim 3.36 #1) id 197pgV-0003Q0-00 for ding@gnus.org; Tue, 22 Apr 2003 00:47:11 -0400 Original-To: ding@gnus.org User-Agent: Gnus/5.090019 (Oort Gnus v0.19) XEmacs/21.4 (Portable Code, usg-unix-v) X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( Cancel-Lock: sha1:2HCHSIXfDOhoB1RSRmcMr9YpWxM= X-Hashcash: 030422:ding@gnus.org:1b2b6009fa755ca8 X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - java.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [32185 32192] / [32185 32192] X-AntiAbuse: Sender Address Domain - java.hostforweb.net Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:51725 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51725 --=-=-= Hi, The following code realizes the mouse wheel operation in Gnus. How is it for Gnus' default feature? There are four commands (mouse4, mouse5, S-mouse4, and S-mouse5) for the Article buffer and the Summary buffer severally. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline (defun gnus-article-mouse-wheel-prev-page (&optional lines) (interactive) (raise-frame (window-frame (get-buffer-window gnus-article-buffer t))) (gnus-eval-in-buffer-window gnus-article-buffer (gnus-article-prev-page lines))) (defun gnus-article-mouse-wheel-next-page (&optional lines) (interactive) (raise-frame (window-frame (get-buffer-window gnus-article-buffer t))) (gnus-eval-in-buffer-window gnus-article-buffer (gnus-article-next-page lines))) (defun gnus-article-mouse-wheel-prev-line () (interactive) (gnus-article-mouse-wheel-prev-page 1)) (defun gnus-article-mouse-wheel-next-line () (interactive) (gnus-article-mouse-wheel-next-page 1)) (defun gnus-summary-mouse-wheel-prev-line () (interactive) (let ((window (get-buffer-window gnus-summary-buffer t))) (raise-frame (window-frame window)) (select-window window)) (forward-line -1) (gnus-summary-position-point)) (defun gnus-summary-mouse-wheel-next-line () (interactive) (let ((window (get-buffer-window gnus-summary-buffer t))) (raise-frame (window-frame window)) (select-window window)) (forward-line 1) (gnus-summary-position-point)) (defun gnus-summary-mouse-wheel-prev-article () (interactive) (let ((window (get-buffer-window gnus-summary-buffer t))) (raise-frame (window-frame window)) (select-window window)) (gnus-summary-prev-article)) (defun gnus-summary-mouse-wheel-next-article () (interactive) (let ((window (get-buffer-window gnus-summary-buffer t))) (raise-frame (window-frame window)) (select-window window)) (gnus-summary-next-article)) (defvar gnus-mouse-4 [mouse-4]) (defvar gnus-mouse-5 [mouse-5]) (when (featurep 'xemacs) (setq gnus-mouse-4 [button4]) (setq gnus-mouse-5 [button5])) (define-key gnus-article-mode-map gnus-mouse-4 'gnus-article-mouse-wheel-prev-line) (define-key gnus-article-mode-map gnus-mouse-5 'gnus-article-mouse-wheel-next-line) (define-key gnus-article-mode-map `[(shift ,(aref gnus-mouse-4 0))] 'gnus-article-mouse-wheel-prev-page) (define-key gnus-article-mode-map `[(shift ,(aref gnus-mouse-5 0))] 'gnus-article-mouse-wheel-next-page) (define-key gnus-summary-mode-map gnus-mouse-4 'gnus-summary-mouse-wheel-prev-line) (define-key gnus-summary-mode-map gnus-mouse-5 'gnus-summary-mouse-wheel-next-line) (define-key gnus-summary-mode-map `[(shift ,(aref gnus-mouse-4 0))] 'gnus-summary-mouse-wheel-prev-article) (define-key gnus-summary-mode-map `[(shift ,(aref gnus-mouse-5 0))] 'gnus-summary-mouse-wheel-next-article) --=-=-=--