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

diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index 7dc9f6e..c37c710 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -57,9 +57,11 @@ Special commands:
 	  (start (progn (beginning-of-line) (point)))
 	  (inhibit-read-only t)
 	  (text-face
-	   (cond ((looking-at wl-highlight-folder-opened-regexp)
+	   (cond ((and (wl-folder-buffer-group-p)
+		       (looking-at wl-highlight-folder-opened-regexp))
 		  'wl-highlight-folder-opened-face)
-		 ((looking-at wl-highlight-folder-closed-regexp)
+		 ((and (wl-folder-buffer-group-p)
+		       (looking-at wl-highlight-folder-closed-regexp))
 		  'wl-highlight-folder-closed-face)
 		 (t
 		  (if (looking-at (format "^[ \t]*\\(%s\\|%s\\)"
@@ -100,7 +102,11 @@ 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 "\C-c:d" 'wl-message-decrypt-pgp-nonmime)
+    (define-key keymap "\C-c:v" 'wl-message-verify-pgp-nonmime)
+    (define-key keymap "w" 'wl-draft)
     (define-key keymap [mouse-4] 'wl-message-wheel-down)
     (define-key keymap [mouse-5] 'wl-message-wheel-up)
     (define-key keymap [S-mouse-4] 'wl-message-wheel-down)
@@ -160,7 +166,9 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
   (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)
-  (define-key wl-draft-mode-map "\C-a" 'wl-draft-beginning-of-line))
+  (define-key wl-draft-mode-map "\C-a" 'wl-draft-beginning-of-line)
+  (define-key wl-draft-mode-map "\M-p" 'wl-draft-previous-history-element)
+  (define-key wl-draft-mode-map "\M-n" 'wl-draft-next-history-element))
 
 (defun wl-draft-overload-menubar ()
   (let ((keymap (current-local-map)))
@@ -295,9 +303,9 @@ Warning: Unknown req `%S' with options `%S'" req options)
 			     nil))))
 	match)))))
 
-(defun wl-read-event-char ()
+(defun wl-read-event-char (&optional prompt)
   "Get the next event."
-  (let ((event (read-event)))
+  (let ((event (read-event prompt)))
     (cons (and (numberp event) event) event)))
 
 (require 'product)