2181 |
;; The command is a string, so we interpret the command |
;; The command is a string, so we interpret the command |
2182 |
;; as a, well, command, and fork it off. |
;; as a, well, command, and fork it off. |
2183 |
(let ((process-connection-type nil)) |
(let ((process-connection-type nil)) |
2184 |
(process-kill-without-query |
(gnus-set-process-query-on-exit-flag |
2185 |
(start-process |
(start-process |
2186 |
"article-x-face" nil shell-file-name |
"article-x-face" nil shell-file-name |
2187 |
shell-command-switch gnus-article-x-face-command)) |
shell-command-switch gnus-article-x-face-command) |
2188 |
|
nil) |
2189 |
(with-temp-buffer |
(with-temp-buffer |
2190 |
(insert face) |
(insert face) |
2191 |
(process-send-region "article-x-face" |
(process-send-region "article-x-face" |