From ec996e67e45fa4e7a4dfdaa74e08376f6a496d8f Mon Sep 17 00:00:00 2001
From: "Dirk-Jan C. Binnema" <djcb@djcbsoftware.nl>
Date: Tue, 16 Aug 2011 07:30:47 +0300
Subject: [PATCH] * mua: updates

---
 toys/mua/mua-hdrs.el | 20 +++++++++++++-------
 toys/mua/mua-view.el |  8 ++++----
 2 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/toys/mua/mua-hdrs.el b/toys/mua/mua-hdrs.el
index 48d73c04..80ab2b85 100644
--- a/toys/mua/mua-hdrs.el
+++ b/toys/mua/mua-hdrs.el
@@ -45,14 +45,20 @@
 
 
 ;; internal stuff
-(defvar mua/buf "" "buffer for results data")
-(defvar mua/last-expression "the last search expression")
-(defvar mua/hdrs-process "the mu-find process")
-(defvar mua/hdrs-hash nil "the bol->path hash")
-(defvar mua/hdrs-marks-hash nil "the hash for marked messages")
+(defvar mua/buf ""
+  "*internal* Buffer for results data.")
+(defvar mua/last-expression nil
+  "*internal* The most recent search expression.")
+(defvar mua/hdrs-process nil
+  "*internal* The mu-find process.")
+(defvar mua/hdrs-hash nil
+  "*internal* The bol->uid hash.")
+(defvar mua/hdrs-marks-hash nil
+  "*internal* The hash for marked messages.")
 
-(defconst mua/eom "\n;;eom\n" "*internal* Marker for the end of message in
-the mu find output.")
+(defconst mua/eom "\n;;eom\n"
+  "*internal* Marker for the end of message in the mu find
+  output.")
 (defconst mua/hdrs-buffer-name "*mua-headers*"
   "*internal* Name of the mua headers buffer.")
 
diff --git a/toys/mua/mua-view.el b/toys/mua/mua-view.el
index 4d04a331..5fb843df 100644
--- a/toys/mua/mua-view.el
+++ b/toys/mua/mua-view.el
@@ -167,10 +167,10 @@ For the reasoning to use UID here instead of just the path, see
     (define-key map "p" 'mua/view-prev)
     
     ;; marking/unmarking
-    (define-key map "d" '(lambda() (mua/view-mark 'trash)))
-    (define-key map "D" '(lambda() (mua/view-mark 'delete)))
-    (define-key map "m" '(lambda() (mua/view-mark 'move)))
-    (define-key map "u" '(lambda() (mua/view-mark 'unmark)))
+    (define-key map "d" '(lambda()(interactive)(mua/view-mark 'trash)))
+    (define-key map "D" '(lambda()(interactive)(mua/view-mark 'delete)))
+    (define-key map "m" '(lambda()(interactive)(mua/view-mark 'move)))
+    (define-key map "u" '(lambda()(interactive)(mua/view-mark 'unmark)))
     (define-key map "x" 'mua/view-marked-execute)    
     map)
   "Keymap for \"*mua-view*\" buffers.")