(gnus-mime-delete-part): Don't go through article-edit

finishing actions if we did not edit the article.

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6ff604ab53f..30b787acf41 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-14  David Kastrup  <dak@gnu.org>
+
+        * gnus-art.el (gnus-mime-delete-part): Don't go through article-edit
+        finishing actions if we did not edit the article.
+
 2007-07-04  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * gnus-sum.el (gnus-summary-catchup): Don't recognize cached articles
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index cbfa6bded93..020bd283189 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -4408,11 +4408,11 @@ Deleting parts may malfunction or destroy the article; continue? ")
           (gnus-summary-edit-article-done
            ,(or (mail-header-references gnus-current-headers) "")
            ,(gnus-group-read-only-p)
-           ,gnus-summary-buffer no-highlight)))))
-  ;; Not in `gnus-mime-save-part-and-strip':
-  (gnus-article-edit-done)
-  (gnus-summary-expand-window)
-  (gnus-summary-show-article))
+           ,gnus-summary-buffer no-highlight))))
+    ;; Not in `gnus-mime-save-part-and-strip':
+    (gnus-article-edit-done)
+    (gnus-summary-expand-window)
+    (gnus-summary-show-article)))
 
 (defun gnus-mime-save-part ()
   "Save the MIME part under point."