Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-topic.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents cca96a509cfe
children 318232e2a3f0
line wrap: on
line diff
--- a/lisp/gnus/gnus-topic.el	Mon Aug 13 09:31:48 2007 +0200
+++ b/lisp/gnus/gnus-topic.el	Mon Aug 13 09:32:43 2007 +0200
@@ -547,12 +547,14 @@
   (when (and (eq major-mode 'gnus-group-mode)
 	     gnus-topic-mode)
     (let ((group (gnus-group-group-name))
+          (m (point-marker))
 	  (buffer-read-only nil))
       (when (and group
 		 (gnus-get-info group)
 		 (gnus-topic-goto-topic (gnus-current-topic)))
 	(gnus-topic-update-topic-line (gnus-group-topic-name))
-	(gnus-group-goto-group group)
+	(goto-char m)
+	(set-marker m nil)
 	(gnus-group-position-point)))))
 
 (defun gnus-topic-goto-missing-group (group)