procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Synch with Gnus trunk.

Browse source 
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.
This commit is contained in:
Katsumi Yamaoka 2010-05-07 07:28:15 +00:00
parent 765d43190e
commit 9581ba4d12
3 changed files with 19 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

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

7
lisp/gnus/gnus-art.el
View file

@ -5041,13 +5041,14 @@ Deleting parts may malfunction or destroy the article; continue? "))
(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."

13
lisp/gnus/mm-decode.el
View file

@ -1301,12 +1301,13 @@ text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\(.+\\)\\)?[\"'][^>]*>" nil t)
(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)