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) |