Mercurial > emacs

diff lisp/gnus/gnus-art.el @ 108290:afc774335f7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Synch with Gnus trunk. Note: Julien has already sent a form to FSF to sign a paper. 2010-05-07 Julien Danjou <julien@danjou.info> * gnus-art.el (gnus-mime-pipe-part): Add optional argument `cmd'; pass it to mm-pipe-part. * mm-decode.el (mm-pipe-part): Add optional argument `cmd'; use it if it is given.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 07 May 2010 07:28:15 +0000
parents c0d13767677a
children de6d3e5f8e8e
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Fri May 07 07:11:49 2010 +0000
+++ b/lisp/gnus/gnus-art.el	Fri May 07 07:28:15 2010 +0000
@@ -5041,13 +5041,14 @@
     (when data
       (mm-save-part data))))
 
-(defun gnus-mime-pipe-part ()
-  "Pipe the MIME part under point to a process."
+(defun gnus-mime-pipe-part (&optional cmd)
+  "Pipe the MIME part under point to a process.
+Use CMD as the process."
   (interactive)
   (gnus-article-check-buffer)
   (let ((data (get-text-property (point) 'gnus-data)))
     (when data
-      (mm-pipe-part data))))
+      (mm-pipe-part data cmd))))
 
 (defun gnus-mime-view-part ()
   "Interactively choose a viewing method for the MIME part under point."