* gnus-sum.el (gnus-summary-mime-map): Added

gnus-article-save-part-and-strip, gnus-article-delete-part and
gnus-article-jump-to-part.

* gnus-art.el (gnus-article-edit-article): Added quiet argument.
(gnus-article-edit-part): Use it.
(gnus-article-part-wrapper): Added no-handle argument.
(gnus-article-save-part-and-strip, gnus-article-delete-part): New
functions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8248d0c..aa52009 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,14 @@
 2005-08-29  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * gnus-sum.el (gnus-summary-mime-map): Added
+       gnus-article-save-part-and-strip, gnus-article-delete-part and
+       gnus-article-jump-to-part.
+
        * gnus-art.el (gnus-article-edit-article): Added quiet argument.
        (gnus-article-edit-part): Use it.
+       (gnus-article-part-wrapper): Added no-handle argument.
+       (gnus-article-save-part-and-strip, gnus-article-delete-part): New
+       functions.
 
 2005-08-29  Romain Francoise  <romain@orebokech.com>
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7d5e65d..aa16a21 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4515,13 +4515,15 @@ If no internal viewer is available, use an external viewer."
     (if action-pair
        (funcall (cdr action-pair)))))
 
-(defun gnus-article-part-wrapper (n function)
+(defun gnus-article-part-wrapper (n function &optional no-handle)
   (with-current-buffer gnus-article-buffer
     (when (> n (length gnus-article-mime-handle-alist))
       (error "No such part"))
     (gnus-article-goto-part n)
-    (let ((handle (cdr (assq n gnus-article-mime-handle-alist))))
-      (funcall function handle))))
+    (if no-handle
+       (funcall function)
+      (let ((handle (cdr (assq n gnus-article-mime-handle-alist))))
+       (funcall function handle)))))
 
 (defun gnus-article-pipe-part (n)
   "Pipe MIME part N, which is the numerical prefix."
@@ -4559,6 +4561,18 @@ N is the numerical prefix."
   (interactive "p")
   (gnus-article-part-wrapper n 'gnus-mime-inline-part))
 
+(defun gnus-article-save-part-and-strip (n)
+  "Save MIME part N and replace it with an external body.
+N is the numerical prefix."
+  (interactive "p")
+  (gnus-article-part-wrapper n 'gnus-mime-save-part-and-strip t))
+
+(defun gnus-article-delete-part (n)
+  "Delete MIME part N and add some information about the removed part.
+N is the numerical prefix."
+  (interactive "p")
+  (gnus-article-part-wrapper n 'gnus-mime-delete-part t))
+
 (defun gnus-article-mime-match-handle-first (condition)
   (if condition
       (let (n)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8346d15..1bb5b22 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2072,6 +2072,9 @@ increase the score of each group you read."
   "m" gnus-summary-repair-multipart
   "v" gnus-article-view-part
   "o" gnus-article-save-part
+  "O" gnus-article-save-part-and-strip
+  "d" gnus-article-delete-part
+  "j" gnus-article-jump-to-part
   "c" gnus-article-copy-part
   "C" gnus-article-view-part-as-charset
   "e" gnus-article-view-part-externally