Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9f74389..ff5353a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-11-20  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-sum.el (gnus-summary-morse-message): Narrow to body.
+
 2002-11-19  Simon Josefsson  <jas@extundo.com>
 
        * gnus-sum.el (gnus-summary-morse-message): Load

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 1652bcb..775309e 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8574,14 +8574,17 @@ forward."
       (save-excursion
        (save-restriction
          (widen)
-         (let ((start (window-start))
-               (end (window-end))
+         (let ((pos (window-start))
                buffer-read-only)
-           (goto-char start)
-           (while (re-search-forward "·" end t)
+           (goto-char (point-min))
+           (when (message-goto-body)
+             (gnus-narrow-to-body))
+           (goto-char (point-min))
+           (while (re-search-forward "·" (point-max) t)
              (replace-match "."))
-           (unmorse-region start end)
-           (set-window-start (get-buffer-window (current-buffer)) start)))))))
+           (unmorse-region (point-min) (point-max))
+           (widen)
+           (set-window-start (get-buffer-window (current-buffer)) pos)))))))
 
 (defun gnus-summary-stop-page-breaking ()
   "Stop page breaking in the current article."