Mercurial > emacs
changeset 108290:afc774335f7e
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 | c5156d99ad78 |
| children | 00d26519e57d ac061dd5d06d |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/mm-decode.el |
| diffstat | 3 files changed, 19 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri May 07 07:11:49 2010 +0000 +++ b/lisp/gnus/ChangeLog Fri May 07 07:28:15 2010 +0000 @@ -1,3 +1,11 @@ +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. + 2010-05-07 Katsumi Yamaoka <yamaoka@jpl.org> * nnweb.el (nnweb-gmane-search)
--- 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."
--- a/lisp/gnus/mm-decode.el Fri May 07 07:11:49 2010 +0000 +++ b/lisp/gnus/mm-decode.el Fri May 07 07:28:15 2010 +0000 @@ -1301,12 +1301,13 @@ (mm-write-region (point-min) (point-max) file nil nil nil 'binary t) (set-default-file-modes current-file-modes))))) -(defun mm-pipe-part (handle) - "Pipe HANDLE to a process." - (let* ((name (mail-content-type-get (mm-handle-type handle) 'name)) - (command - (gnus-read-shell-command - "Shell command on MIME part: " mm-last-shell-command))) +(defun mm-pipe-part (handle &optional cmd) + "Pipe HANDLE to a process. +Use CMD as the process." + (let ((name (mail-content-type-get (mm-handle-type handle) 'name)) + (command (or cmd + (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)