2000-11-04 11:13:56 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-sum.el (gnus-summary-search-article-forward): Don't move
	the last article when search.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc37f70..3e3342b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-04 11:13:56  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-search-article-forward): Don't move
+       the last article when search.
+
 2000-11-04 10:34:29  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnheader.el (nnheader-pathname-coding-system): Default iso-8859-1.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 5901a5c..f220281 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7076,10 +7076,13 @@ If BACKWARD, search backward instead."
         current-prefix-arg))
   (if (string-equal regexp "")
       (setq regexp (or gnus-last-search-regexp ""))
-    (setq gnus-last-search-regexp regexp))
-  (if (gnus-summary-search-article regexp backward)
-      (gnus-summary-show-thread)
-    (error "Search failed: \"%s\"" regexp)))
+    (setq gnus-last-search-regexp regexp)
+    (setq gnus-last-article gnus-current-article))
+  (let ((gnus-last-article gnus-last-article))
+    ;; Intentionally don't move the last article.
+    (if (gnus-summary-search-article regexp backward)
+       (gnus-summary-show-thread)
+      (error "Search failed: \"%s\"" regexp))))
 
 (defun gnus-summary-search-article-backward (regexp)
   "Search for an article containing REGEXP backward."