Changes committed gnus/lisp (ChangeLog gnus-art.el)

Modified: ChangeLog 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.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2019 gnus/lisp/ChangeLog:7.2020
--- ChangeLog:7.2019	Mon Sep 14 21:19:41 2009
+++ ChangeLog	Tue Sep 15 12:19:16 2009
@@ -1,3 +1,9 @@
+2009-09-15  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* spam.el (spam-unregister-on-reregister): Add boolean variable.
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.295 gnus/lisp/gnus-art.el:7.296
--- gnus-art.el:7.295	Wed Sep  9 11:31:35 2009
+++ gnus-art.el	Tue Sep 15 12:19:16 2009
@@ -4862,15 +4862,9 @@
 	 ,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."