* gnus-sum.el (gnus-summary-select-article): Return whether we

selected something new.
(gnus-summary-search-article): Start searching at the window
point.

* gnus-group.el (gnus-fetch-group): Complete over
gnus-active-hashtb.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7eeca12..4d81184 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2000-01-05 17:31:52  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-summary-select-article): Return whether we
+       selected something new.
+       (gnus-summary-search-article): Start searching at the window
+       point.
+
+       * gnus-group.el (gnus-fetch-group): Complete over
+       gnus-active-hashtb. 
+
 Wed Jan  5 17:06:41 2000  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Pterodactyl Gnus v5.8.3 is released.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index f465afc..e113b6a 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1570,7 +1570,7 @@ be permanent."
 (defun gnus-fetch-group (group)
   "Start Gnus if necessary and enter GROUP.
 Returns whether the fetching was successful or not."
-  (interactive "sGroup name: ")
+  (interactive (list (completing-read "Group name: " gnus-active-hashtb)))
   (unless (get-buffer gnus-group-buffer)
     (gnus-no-server))
   (gnus-group-read-group nil nil group))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 31d99d9..125969c 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5826,7 +5826,8 @@ be displayed."
            'old))
       (when did
        (gnus-article-set-window-start
-        (cdr (assq article gnus-newsgroup-bookmarks)))))))
+        (cdr (assq article gnus-newsgroup-bookmarks)))))
+    did))
 
 (defun gnus-summary-set-current-mark (&optional current-mark)
   "Obsolete function."
@@ -6986,6 +6987,7 @@ Optional argument BACKWARD means do search for backward.
     (gnus-save-hidden-threads
       (gnus-summary-select-article)
       (set-buffer gnus-article-buffer)
+      (goto-char (window-point (get-buffer-window (current-buffer))))
       (when backward
        (forward-line -1))
       (while (not found)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index debcd1f..da3ef82 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -260,7 +260,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.8.3"
+(defconst gnus-version-number "5.8.4"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)