alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-view.el: fix open-with for files with spaces in their name

Browse Source
This commit is contained in:
djcb
2012-05-03 07:53:41 +03:00
parent 0eb205b1e6
commit cd281fc696
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
emacs/mu4e-view.el
View File

@ -740,7 +740,7 @@ user for it."
"History list for the pipe argument.") "History list for the pipe argument.")
(defun mu4e-view-pipe-attachment (msg attachnum &optional pipecmd) (defun mu4e-view-pipe-attachment (msg attachnum &optional pipecmd)
"Feed MSG's attachment ATTACHNUM throught pipe PIPECMD; if "Feed MSG's attachment ATTACHNUM through pipe PIPECMD; if
PIPECMD is nil, ask user for it." PIPECMD is nil, ask user for it."
(interactive) (interactive)
(let* ((att (mu4e~view-get-attach msg attachnum)) (let* ((att (mu4e~view-get-attach msg attachnum))
@ -780,19 +780,19 @@ message-at-point, then do it. The actions are specified in
(defun mu4e~view-temp-handler (path what param) (defun mu4e~view-temp-handler (path what param)
"Handler function for doing things with temp files (ie., "Handler function for doing things with temp files (ie.,
attachments) in response to a (mu4e~proc-extract 'temp ... )." attachments) in response to a (mu4e~proc-extract 'temp ... )."
(cond (cond
((string= what "open-with") ((string= what "open-with")
;; 'param' will be the program to open-with ;; 'param' will be the program to open-with
(start-file-process-shell-command "*mu4e-open-with*" nil (start-process "*mu4e-open-with-proc*" "*mu4e-open-with*" param path))
(concat param " " path))) ((string= what "pipe")
((string= what "pipe") ;; 'param' will be the pipe command, path the infile for this
;; 'param' will be the pipe command, path the infile for this (mu4e-process-file-through-pipe path
(mu4e-process-file-through-pipe path param)) (shell-quote-argument param)))
((string= what "emacs") ((string= what "emacs")
(find-file path) (find-file path)
;; make the buffer read-only since it usually does not make ;; make the buffer read-only since it usually does not make
;; sense to edit the temp buffer; use C-x C-q if you insist... ;; sense to edit the temp buffer; use C-x C-q if you insist...
(setq buffer-read-only t)) (setq buffer-read-only t))
(t (error "Unsupported action %S" what)))) (t (error "Unsupported action %S" what))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;