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 1f9329f..2fbd8cd 100644 (file)
--- a/mymail-vm.el
+++ b/mymail-vm.el
@@ -30,7 +30,7 @@
 
 (defgroup mymail ()
   "Command to visit a folder built on-the-fly with mymail"
-  :version "0.9.8")
+  :version "0.9.10")
 
 (defcustom mymail/default-additional-search-requests ""
   "Comma-separated list of search requests to add to any search"
@@ -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)))
+      )
     ))