From 35f4d1ca55881cb34ccc58b347263e2fa0c310ac Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 20 Nov 2002 11:18:04 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-sum.el | 15 +++++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) 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 + + * gnus-sum.el (gnus-summary-morse-message): Narrow to body. + 2002-11-19 Simon Josefsson * 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." -- 1.7.10.4