* gnus-sum.el (gnus-summary-search-article):

Ensure that the article where the search word is found is displayed
and pointed to in the summary buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 137dd34..dd819db 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-09-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-sum.el (gnus-summary-search-article):
+       Ensure that the article where the search word is found is displayed
+       and pointed to in the summary buffer.
+
 2015-08-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * tls.el (tls-format-message):

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e4c144b..447bd5d 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9489,6 +9489,7 @@ Optional argument BACKWARD means do search for backward.
     ;; Return whether we found the regexp.
     (when (eq found 'found)
       (goto-char point)
+      (sit-for 0) ;; Ensure that the point is visible in the summary window.
       (gnus-summary-show-thread)
       (gnus-summary-goto-subject gnus-current-article)
       (gnus-summary-position-point)