From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/31800
Path: main.gmane.org!not-for-mail
From: Daiki Ueno <ueno@unixuser.org>
Newsgroups: gmane.emacs.gnus.general
Subject: gnus-restore-hidden-threads-configuration
Date: 16 Jul 2000 19:59:12 +0900
Sender: owner-ding@hpc.uh.edu
Message-ID: <87og3ybatb.fsf@mail.unixuser.org>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035168169 16110 80.91.224.250 (21 Oct 2002 02:42:49 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 02:42:49 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35])
	by mailhost.sclp.com (Postfix) with ESMTP id A73E3D051E
	for <jason@mailhost.sclp.com>; Sun, 16 Jul 2000 07:17:48 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id GAC17699;
	Sun, 16 Jul 2000 06:14:22 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 16 Jul 2000 06:12:17 -0500 (CDT)
Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id GAA14007
	for <ding@hpc.uh.edu>; Sun, 16 Jul 2000 06:12:06 -0500 (CDT)
Original-Received: from localhost (hir026.airnet.ne.jp [210.159.69.154])
	by mailhost.sclp.com (Postfix) with ESMTP id 1A09ED051E
	for <ding@gnus.org>; Sun, 16 Jul 2000 07:12:36 -0400 (EDT)
Original-Received: from mail.unixuser.org (localhost [127.0.0.1])
	by localhost (Postfix) with ESMTP id B13683407D
	for <ding@gnus.org>; Sun, 16 Jul 2000 19:59:12 +0900 (JST)
Original-To: ding@gnus.org
Original-Lines: 34
User-Agent: T-gnus/6.14.5 (based on Gnus v5.8.8) (revision 01) REMI/1.14.2
 (=?ISO-8859-4?Q?Hokuhoku-=D2shima?=) Chao/1.14.1 (=?ISO-8859-4?Q?Rokujiz?=
 =?ISO-8859-4?Q?=F2?=) APEL/10.2 Emacs/20.7 GOOPS/0.9.1 Guile/1.4.1
 (i686-pc-linux-gnu) MULE/4.1 (AOI)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:31800
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:31800

Hello.

I've recently decided to set gnus-thread-hide-subtree to t.
Where there are many threads and I typed T # (gnus-uu-mark-thread),
then the point goes to the beginning of buffer.

The attached patch fixes this.

Thank you.
-- 
Daiki Ueno

2000-07-16   Daiki Ueno  <ueno@unixuser.org>

	* gnus-sum.el
	(gnus-restore-hidden-threads-configuration): Save excursion.

--- gnus-sum.el~	Sun Jul 16 19:54:51 2000
+++ gnus-sum.el	Sun Jul 16 19:55:11 2000
@@ -2429,12 +2429,13 @@ (defun gnus-hidden-threads-configuration
 
 (defun gnus-restore-hidden-threads-configuration (config)
   "Restore hidden threads configuration from CONFIG."
+  (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)))))
+	  (subst-char-in-region point (1+ point) ?\n ?\r))))))
 
 ;; Various summary mode internalish functions.