Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3f937d..e3e13c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,15 @@
+2002-10-22  Jesper harder  <harder@ifa.au.dk>
+
+       * gnus-sum.el (gnus-summary-execute-command): Disable visual
+       features while searching.
+
 2002-10-22  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
        * pgg.el (pgg-snarf-keys): Do not refer unbinded local variables.
 
 2002-10-22  Simon Josefsson  <jas@extundo.com>
 
-       * pgg.el (pgg-encrypt, pgg-decrypt, pgg-sign, pgg-verify) 
+       * pgg.el (pgg-encrypt, pgg-decrypt, pgg-sign, pgg-verify)
        (pgg-snarf-keys): Add.
 
 2002-10-22  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 1325944..de18b17 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8306,12 +8306,19 @@ article.  If BACKWARD (the prefix) is non-nil, search backward instead."
   ;; We don't want to change current point nor window configuration.
   (save-excursion
     (save-window-excursion
-      (gnus-message 6 "Executing %s..." (key-description command))
-      ;; We'd like to execute COMMAND interactively so as to give arguments.
-      (gnus-execute header regexp
-                   `(call-interactively ',(key-binding command))
-                   backward)
-      (gnus-message 6 "Executing %s...done" (key-description command)))))
+      (let (gnus-visual
+           gnus-treat-strip-trailing-blank-lines
+           gnus-treat-strip-leading-blank-lines
+           gnus-treat-strip-multiple-blank-lines
+           gnus-treat-hide-boring-headers
+           gnus-treat-fold-newsgroups
+           gnus-article-prepare-hook)
+       (gnus-message 6 "Executing %s..." (key-description command))
+       ;; We'd like to execute COMMAND interactively so as to give arguments.
+       (gnus-execute header regexp
+                     `(call-interactively ',(key-binding command))
+                     backward)
+       (gnus-message 6 "Executing %s...done" (key-description command))))))
 
 (defun gnus-summary-beginning-of-article ()
   "Scroll the article back to the beginning."