* emacs/ updates

emacs/mu-message.el

@@ -129,4 +129,14 @@ to the message editor"
 creation, switch to the message editor"
   (mu-message-reply-or-forward path t))
 
+(defun mu-message-delete (path)
+  "delete message at PATH using 'mu mv'; return t if succeeded, nil otherwise"
+  (let
+    ((rv (call-process mu-binary nil nil nil "mv" path "/dev/null")))
+    (setq okay (and (numberp rv) (= rv 0)))
+    (message (if okay "Message has been deleted" "Message deletion failed"))
+    ;; now, if saving worked, anynchronously try to update the database
+    (start-process " *mu-remove*" nil mu-binary "remove" path)
+    okay)) ;; note, we don't check the result of the db output
+
 (provide 'mu-message)