X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-mule.el;h=985768dab646d9dda77963c1d1cfa07cfa82c590;hb=000345eadd81debeb1527fb65e46109c96fc35e0;hp=7dc9f6eac7f19d9843187f28e65b7f523e6bd773;hpb=3b389ff91d45c91b91e75f798b7adab5e9966ea5;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index 7dc9f6e..985768d 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -100,6 +100,7 @@ Special commands:
 
 (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)