X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=mymail.git;a=blobdiff_plain;f=mymail-vm.el;h=2c9970f53f739a4fb2658cf9efeeba536cff4c90;hp=08c41ad1b111169171fa3d88dc4c1bc55d386fd9;hb=HEAD;hpb=98ce45199ef5097836564d5a81596373bc11a217 diff --git a/mymail-vm.el b/mymail-vm.el index 08c41ad..2c9970f 100644 --- a/mymail-vm.el +++ b/mymail-vm.el @@ -52,7 +52,7 @@ If the request string is empty, use The string `mymail/default-additional-search-requests' is automatically concatenated to the provided request, except if the request is -prefaced with \\." +prefaced with `\\'." (interactive (list (read-string "mymail-vm: " nil 'mymail-vm-history))) @@ -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))) + ) ))