[Emacs-diffs] /srv/bzr/emacs/trunk r100180: Synch with Gnus trunk.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 100180 [merge]
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-05-07 07:29:07 +0000
message:
  Synch with Gnus trunk.
  Note: Julien has already sent a form to FSF to sign a paper.
  2010-05-07  Julien Danjou  <address@hidden>
   * 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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el
  lisp/gnus/mm-decode.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-05-07 06:58:17 +0000
+++ b/lisp/gnus/ChangeLog       2010-05-07 07:28:15 +0000
@@ -1,3 +1,11 @@
+2010-05-07  Julien Danjou  <address@hidden>
+
+       * 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  <address@hidden>
 
        * nnweb.el (nnweb-gmane-search)

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2010-05-07 06:58:17 +0000
+++ b/lisp/gnus/gnus-art.el     2010-05-07 07:28:15 +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."

=== modified file 'lisp/gnus/mm-decode.el'
--- a/lisp/gnus/mm-decode.el    2010-03-31 02:37:57 +0000
+++ b/lisp/gnus/mm-decode.el    2010-05-07 07:28:15 +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)