X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-e21.el;h=7767bca14b7bdebcbf2a4679bc32d39b4256f81d;hb=d435474a02bfed44eea9397d4f4673f541a8af84;hp=579749c110c9f186483af6ea4de50550d21177db;hpb=f06d37bb4a8afabaa570ce4272f301b7a5154507;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 579749c..7767bca 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -609,8 +609,9 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-j" 'wl-template-select)
   (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
-  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
-  (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer))
+;;  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
+  (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer)
+  (define-key wl-draft-mode-map "\C-c\C-d" 'wl-draft-elide-region))
 
 (defun wl-draft-overload-functions ()
   (wl-mode-line-buffer-identification)