Mercurial > emacs
comparison lisp/gnus/gnus-art.el @ 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 | c0d13767677a |
children | de6d3e5f8e8e |
comparison
equal
deleted
inserted
replaced
108289:c5156d99ad78 | 108290:afc774335f7e |
---|---|
5039 (gnus-article-check-buffer) | 5039 (gnus-article-check-buffer) |
5040 (let ((data (get-text-property (point) 'gnus-data))) | 5040 (let ((data (get-text-property (point) 'gnus-data))) |
5041 (when data | 5041 (when data |
5042 (mm-save-part data)))) | 5042 (mm-save-part data)))) |
5043 | 5043 |
5044 (defun gnus-mime-pipe-part () | 5044 (defun gnus-mime-pipe-part (&optional cmd) |
5045 "Pipe the MIME part under point to a process." | 5045 "Pipe the MIME part under point to a process. |
5046 Use CMD as the process." | |
5046 (interactive) | 5047 (interactive) |
5047 (gnus-article-check-buffer) | 5048 (gnus-article-check-buffer) |
5048 (let ((data (get-text-property (point) 'gnus-data))) | 5049 (let ((data (get-text-property (point) 'gnus-data))) |
5049 (when data | 5050 (when data |
5050 (mm-pipe-part data)))) | 5051 (mm-pipe-part data cmd)))) |
5051 | 5052 |
5052 (defun gnus-mime-view-part () | 5053 (defun gnus-mime-view-part () |
5053 "Interactively choose a viewing method for the MIME part under point." | 5054 "Interactively choose a viewing method for the MIME part under point." |
5054 (interactive) | 5055 (interactive) |
5055 (gnus-article-check-buffer) | 5056 (gnus-article-check-buffer) |