From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/36892
Path: main.gmane.org!not-for-mail
From: Colin Walters <walters@cis.ohio-state.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: emacs-21 and gnus
Date: Thu, 12 Jul 2001 15:02:04 -0400
Organization: The Ohio State University Dept. of Computer and Info. Science
Message-ID: <87y9pu9djn.church.of.emacs@cis.ohio-state.edu>
References: <x7ae2btg3j.fsf@reader.newsguy.com>
	<87g0c3cjni.church.of.emacs@cis.ohio-state.edu>
	<m1wv5fw1n5.fsf@reader.newsguy.com>
	<vafae2bytbt.fsf@lucy.cs.uni-dortmund.de>
	<ysd6r8vnt5u6.fsf@sol-cmarquar.pet.usa.alcatel.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035172401 10985 80.91.224.250 (21 Oct 2002 03:53:21 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:53:21 +0000 (UTC)
Return-Path: <walters@cis.ohio-state.edu>
Return-Path: <walters@cis.ohio-state.edu>
Original-Received: (qmail 9424 invoked from network); 12 Jul 2001 19:07:32 -0000
Original-Received: from mail.cis.ohio-state.edu (HELO cis.ohio-state.edu) (root@164.107.115.5)
  by gnus.org with SMTP; 12 Jul 2001 19:07:32 -0000
Original-Received: from verbum.org (root@gold.cis.ohio-state.edu [164.107.112.16])
	by cis.ohio-state.edu (8.9.1/8.9.1) with ESMTP id PAA08361
	for <ding@gnus.org>; Thu, 12 Jul 2001 15:07:30 -0400 (EDT)
Original-Received: from space-ghost (space-ghost.verbum.org [192.168.5.90])
	by verbum.org (Postfix (Debian/GNU)) with ESMTP id 8E0956E69
	for <ding@gnus.org>; Thu, 12 Jul 2001 15:02:07 -0400 (EDT)
Original-Received: by space-ghost (Postfix (Debian/GNU), from userid 1000)
	id 266A9622F57; Thu, 12 Jul 2001 15:02:05 -0400 (EDT)
Original-To: ding@gnus.org
X-Attribution: Colin
X-Face: %'w-_>8Mj2_'=;I$myE#]G"'D>x3CY_rk,K06:mXFUvWy>;3I"BW3_-MAiUby{O(mn"wV@m
 dd`)Vk[27^^Sa<qRKA=qTu-uV/qLcGrMm-}A24N2wgr)5%_46(#WMTajfXc_DBt)&'/(J1
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.103
 (powerpc-debian-linux-gnu)
Mail-Followup-To: ding@gnus.org
In-Reply-To: <ysd6r8vnt5u6.fsf@sol-cmarquar.pet.usa.alcatel.com> (Colin
 Marquardt's message of "Wed, 11 Jul 2001 16:16:01 -0700")
Original-Lines: 45
Xref: main.gmane.org gmane.emacs.gnus.general:36892
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:36892

Colin Marquardt <colin.marquardt@usa.alcatel.com> writes:

> WIBNI Gnus used this for showing the current article in the summary
> buffer? Might be a more generic way than the recent discussions
> about highline.el etc.

How about the following?  I couldn't find a way to do this in XEmacs;
maybe an XEmacs guru will have a way to make it work there too.

2001-07-12  Colin Walters  <walters@cis.ohio-state.edu>

	* gnus-sum.el (gnus-summary-set-article-display-arrow): New function.
	(gnus-summary-goto-subject): Use it.

--- gnus-sum.el.~6.72.~	Thu Jul 12 13:04:12 2001
+++ gnus-sum.el	Thu Jul 12 14:59:47 2001
@@ -2703,6 +2703,17 @@
 	  (aset table i [??]))))
     (setq buffer-display-table table)))
 
+(defun gnus-summary-set-article-display-arrow (pos)
+  "Update the overlay arrow to point to line at position POS.
+Currently, this only works in Emacs 21."
+  (when (and (boundp 'overlay-arrow-position)
+	     (boundp 'overlay-arrow-string))
+    (setq overlay-arrow-string "=>"
+	  overlay-arrow-position (save-excursion
+				   (goto-char pos)
+				   (beginning-of-line)
+				   (point-marker)))))
+
 (defun gnus-summary-buffer-name (group)
   "Return the summary buffer name of GROUP."
   (concat "*Summary " group "*"))
@@ -6123,7 +6134,9 @@
 	  (unless silent
 	    (gnus-message 3 "Can't find article %d" article))
 	  nil)
-      (goto-char (gnus-data-pos data))
+      (let ((pt (gnus-data-pos data)))
+	(goto-char pt)
+	(gnus-summary-set-article-display-arrow pt))
       (gnus-summary-position-point)
       article)))