* mua updates

2011-08-11 08:23:23 +03:00
parent 550a265a1b
commit 4a995b509c
2 changed files with 12 additions and 11 deletions
--- a/toys/mua/mua-msg.el
+++ b/toys/mua/mua-msg.el
@ -121,11 +121,12 @@ Function returns the target filename if the move succeeds, or
 \[1\]  http://cr.yp.to/proto/maildir.html."
  (let ((fulltarget (mua/mu-mv src targetdir flags)))
    (if fulltarget
-      (mua/mu-remove src)
-      (unless (string= targetdir "/dev/null")
-	(mua/mu-add fulltarget))
-      fulltarget)
-    (mua/warn "Moving message failed")))
+      (progn
+	(mua/mu-remove src)	
+	(unless (string= targetdir "/dev/null")
+	  (mua/mu-add fulltarget))
+	fulltarget)
+      (mua/warn "Moving message %s=>%s %S failed" src targetdir flags))))


 ;; functions for composing new messages (forward, reply and new)