mirror of https://github.com/djcb/mu.git
* mu4e-view.el: fix open-with for files with spaces in their name
This commit is contained in:
parent
0eb205b1e6
commit
cd281fc696
|
@ -740,7 +740,7 @@ user for it."
|
|||
"History list for the pipe argument.")
|
||||
|
||||
(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."
|
||||
(interactive)
|
||||
(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)
|
||||
"Handler function for doing things with temp files (ie.,
|
||||
attachments) in response to a (mu4e~proc-extract 'temp ... )."
|
||||
(cond
|
||||
((string= what "open-with")
|
||||
;; 'param' will be the program to open-with
|
||||
(start-file-process-shell-command "*mu4e-open-with*" nil
|
||||
(concat param " " path)))
|
||||
((string= what "pipe")
|
||||
;; 'param' will be the pipe command, path the infile for this
|
||||
(mu4e-process-file-through-pipe path param))
|
||||
((string= what "emacs")
|
||||
(find-file path)
|
||||
;; make the buffer read-only since it usually does not make
|
||||
(cond
|
||||
((string= what "open-with")
|
||||
;; 'param' will be the program to open-with
|
||||
(start-process "*mu4e-open-with-proc*" "*mu4e-open-with*" param path))
|
||||
((string= what "pipe")
|
||||
;; 'param' will be the pipe command, path the infile for this
|
||||
(mu4e-process-file-through-pipe path
|
||||
(shell-quote-argument param)))
|
||||
((string= what "emacs")
|
||||
(find-file path)
|
||||
;; 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...
|
||||
(setq buffer-read-only t))
|
||||
(setq buffer-read-only t))
|
||||
(t (error "Unsupported action %S" what))))
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
|
Loading…
Reference in New Issue