+;; Wheel handling for Meadow2
+(defun wl-message-wheel-dispatcher (event)
+ (interactive "e")
+ (if (< (nth 4 (nth 1 event)) 0)
+ (wl-message-wheel-up event)
+ (wl-message-wheel-down event)))
+
+(defun wl-summary-wheel-dispatcher (event)
+ (interactive "e")
+ (if (< (nth 4 (nth 1 event)) 0)
+ (if (memq 'shift (event-modifiers event))
+ (wl-summary-down)
+ (wl-summary-next))
+ (if (memq 'shift (event-modifiers event))
+ (wl-summary-up)
+ (wl-summary-prev))))
+