From fa67fcb5c72297ed3e18fd99af4ef1a9cb6fb38d Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Fri, 14 Jul 2000 12:54:30 +0000 Subject: [PATCH] (gnus-restore-hidden-threads-configuration): Save excursion. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 939f2305f..c302fa75d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-07-16 Daiki Ueno + + * gnus-sum.el (gnus-restore-hidden-threads-configuration): Save + excursion. + 2000-07-15 Simon Josefsson * gnus-cus.el (gnus-group-parameters, banner): Type is regexp. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 163d1e3cd..8e304697a 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -2429,12 +2429,13 @@ marks of articles." (defun gnus-restore-hidden-threads-configuration (config) "Restore hidden threads configuration from CONFIG." - (let (point buffer-read-only) - (while (setq point (pop config)) - (when (and (< point (point-max)) - (goto-char point) - (eq (char-after) ?\n)) - (subst-char-in-region point (1+ point) ?\n ?\r))))) + (save-excursion + (let (point buffer-read-only) + (while (setq point (pop config)) + (when (and (< point (point-max)) + (goto-char point) + (eq (char-after) ?\n)) + (subst-char-in-region point (1+ point) ?\n ?\r)))))) ;; Various summary mode internalish functions. -- 2.25.1