(defun wl-message-define-keymap ()
(let ((keymap (make-sparse-keymap)))
+ (define-key keymap "D" 'wl-message-delete-current-part)
(define-key keymap "l" 'wl-message-toggle-disp-summary)
(define-key keymap [mouse-4] 'wl-message-wheel-down)
(define-key keymap [mouse-5] 'wl-message-wheel-up)
(defun wl-message-wheel-up (event)
(interactive "e")
- (if (string-match (regexp-quote wl-message-buffer-cache-name)
+ (if (string-match (regexp-quote wl-message-buffer-name)
(regexp-quote (buffer-name)))
(wl-message-next-page)
(let ((cur-buf (current-buffer))
(defun wl-message-wheel-down (event)
(interactive "e")
- (if (string-match (regexp-quote wl-message-buffer-cache-name)
+ (if (string-match (regexp-quote wl-message-buffer-name)
(regexp-quote (buffer-name)))
(wl-message-prev-page)
(let ((cur-buf (current-buffer))