(local-set-key [mouse-5] 'wl-message-wheel-up)
(local-set-key [S-mouse-4] 'wl-message-wheel-down)
(local-set-key [S-mouse-5] 'wl-message-wheel-up)
(local-set-key [mouse-5] 'wl-message-wheel-up)
(local-set-key [S-mouse-4] 'wl-message-wheel-down)
(local-set-key [S-mouse-5] 'wl-message-wheel-up)