Re: emacs-21 and gnus

[Colin Walters <walters@cis.ohio-state.edu>]

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)))