# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1184404336 0
# Node ID 97af23020f6ccab5e51747406c28866d2a9870dc
# Parent  45f2b335e74c8043366b78607430a9d3bb45e9f0
(gnus-mime-delete-part): Don't go through article-edit
finishing actions if we did not edit the article.

diff -r 45f2b335e74c -r 97af23020f6c lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Jul 14 09:02:35 2007 +0000
+++ b/lisp/gnus/ChangeLog	Sat Jul 14 09:12:16 2007 +0000
@@ -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 -r 45f2b335e74c -r 97af23020f6c lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Sat Jul 14 09:02:35 2007 +0000
+++ b/lisp/gnus/gnus-art.el	Sat Jul 14 09:12:16 2007 +0000
@@ -4408,11 +4408,11 @@
 	  (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."