Use the wheel Luke!

Use the wheel Luke!

[David Hedbor]

[-- Attachment #1: Type: text/plain, Size: 296 bytes --]

I recently purchased a logitech wheel mouse. Very nice thing. I
started using mwheel.el which does scrolling in (x)emacs. Then I
thought "Wouldn't it be nice to use it when reading mail?". A few
minutes later I made the wheel do next/prev article. Here's the code
if someone else is interested.


[-- Attachment #2: gnus-wheel.el --]
[-- Type: application/octet-stream, Size: 775 bytes --]

(defconst gnus-running-xemacs (string-match "XEmacs" (emacs-version)))
(define-key gnus-summary-mode-map (if gnus-running-xemacs [(control button5)] [C-mouse-5])
  'gnus-summary-next-unread-article)
(define-key gnus-summary-mode-map (if gnus-running-xemacs [(control button4)] [C-mouse-4])
  'gnus-summary-prev-unread-article)
(define-key gnus-summary-mode-map (if gnus-running-xemacs [(shift button5)] [S-mouse-5])
  'gnus-summary-next-article)
(define-key gnus-summary-mode-map (if gnus-running-xemacs [(shift button4)] [S-mouse-4])
  'gnus-summary-prev-article)
(define-key gnus-summary-mode-map (if gnus-running-xemacs `button5 [mouse-5])
  'gnus-summary-next-page)
(define-key gnus-summary-mode-map (if gnus-running-xemacs 'button4 [mouse-4])
  'gnus-summary-prev-page)

[-- Attachment #3: Type: text/plain, Size: 202 bytes --]


-- 
[ Below is a random fortune, which is unrelated to the above message. ]
"MSDOS didn't get as bad as it is overnight -- it took over ten years
of careful development."
(By dmeggins@aix1.uottawa.ca)