projects
/
mymail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changed indentation to avoid a gcc warning.
[mymail.git]
/
mymail-vm.el
diff --git
a/mymail-vm.el
b/mymail-vm.el
index
1f9329f
..
2c9970f
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"
(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"
(defcustom mymail/default-additional-search-requests ""
"Comma-separated list of search requests to add to any search"
@@
-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
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)))
(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)
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)))
+ )
))
))