From: yamaoka <yamaoka>
Date: Wed, 23 Oct 2002 02:14:30 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-05-quimby~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=da7975ffc1b994e5159281358f1ae323ca72101f;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3f937d..e3e13c6 100644
--- 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
--- 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."