Mercurial > emacs

diff lisp/gnus/mm-decode.el @ 95586:64da3838a9aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gnus-util.el (gnus-read-shell-command): New function. * mm-decode.el (mm-pipe-part): * gnus-art.el (gnus-summary-save-in-pipe): Use it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 05 Jun 2008 14:37:42 +0000
parents f42ef85caf91
children eb119cbc1715
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el	Thu Jun 05 11:35:10 2008 +0000
+++ b/lisp/gnus/mm-decode.el	Thu Jun 05 14:37:42 2008 +0000
@@ -1295,7 +1295,8 @@
   "Pipe HANDLE to a process."
   (let* ((name (mail-content-type-get (mm-handle-type handle) 'name))
 	 (command
-	  (read-string "Shell command on MIME part: " mm-last-shell-command)))
+	  (gnus-read-shell-command
+           "Shell command on MIME part: " mm-last-shell-command)))
     (mm-with-unibyte-buffer
       (mm-insert-part handle)
       (mm-add-meta-html-tag handle)