Prints the content of /tmp/mymail.err in case of error.

[mymail.git] / mymail-vm.el

diff --git a/mymail-vm.el b/mymail-vm.el
index 08c41ad..2fbd8cd 100644 (file)
--- a/mymail-vm.el
+++ b/mymail-vm.el
@@ -96,5 +96,12 @@ prefaced with \\."
                          search-args))
            0)
         (vm-visit-folder mbox-name t)
-      (message "mymail failed. See /tmp/mymail.err"))
+
+      ;; (message "mymail failed. See /tmp/mymail.err"))
+
+      (message (with-temp-buffer
+                 (insert-file-contents "/tmp/mymail.err")
+                 (replace-string "\n" " ")
+                 (buffer-string)))
+      )
     ))