(gnus-article-edit-done, gnus-article-edit-exit):

Redisplay article after editing.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28515f6..0fea0ee 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-20  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-art.el (gnus-article-edit-done, gnus-article-edit-exit):
+       Redisplay article after editing.
+
 2003-08-20  Simon Josefsson  <jas@extundo.com>
 
        * gnus.el (gnus-read-group): Added check to ask confirmation if

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 2d8f2ab..c24b554 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5599,7 +5599,8 @@ groups."
     (set-window-configuration winconf)
     (set-buffer buf)
     (set-window-start (get-buffer-window buf) start)
-    (set-window-point (get-buffer-window buf) (point))))
+    (set-window-point (get-buffer-window buf) (point)))
+  (gnus-summary-show-article))
 
 (defun gnus-article-edit-exit ()
   "Exit the article editing without updating."
@@ -5620,7 +5621,8 @@ groups."
        (save-current-buffer
          (set-buffer curbuf)
          (set-window-start (get-buffer-window (current-buffer)) window-start)
-         (goto-char p))))))
+         (goto-char p))))
+    (gnus-summary-show-article)))
 
 (defun gnus-article-edit-full-stops ()
   "Interactively repair spacing at end of sentences."