From: yamaoka <yamaoka>
Date: Wed, 20 Nov 2002 11:18:04 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_10-00-quimby~86
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=35f4d1ca55881cb34ccc58b347263e2fa0c310ac;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9f74389..ff5353a 100644
--- 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
--- 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."