(gnus-article-edit-part): Work for the buffer configuration that provides

 the sole article window in a frame;
 position point correctly after deleting a part.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e12780a..4b6965b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-09-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-edit-part): Work for the buffer
+       configuration that provides the sole article window in a frame;
+       position point correctly after deleting a part.
+
 2009-09-14  Adam Sjøgren  <asjo@koldfront.dk>
 
        * spam.el (spam-unregister-on-reregister): Add boolean variable.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index aa4b57a..826d5dc 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4862,15 +4862,9 @@ and `gnus-mime-delete-part', and not provided at run-time normally."
         ,gnus-summary-buffer no-highlight))
      t)
     (gnus-article-edit-done)
-    (gnus-summary-expand-window)
-    (gnus-summary-show-article)
+    (gnus-configure-windows 'article)
     (when (and current-id (integerp gnus-auto-select-part))
-      (gnus-article-jump-to-part
-       (if (text-property-any (point-min) (point-max)
-                             'gnus-part (+ current-id gnus-auto-select-part))
-          (+ current-id gnus-auto-select-part)
-        (with-current-buffer gnus-article-buffer
-          (length gnus-article-mime-handle-alist)))))))
+      (gnus-article-jump-to-part (+ current-id gnus-auto-select-part)))))
 
 (defun gnus-mime-replace-part (file)
   "Replace MIME part under point with an external body."