From da7975ffc1b994e5159281358f1ae323ca72101f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Oct 2002 02:14:30 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 7 ++++++- lisp/gnus-sum.el | 19 +++++++++++++------ 2 files changed, 19 insertions(+), 7 deletions(-) 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 + + * gnus-sum.el (gnus-summary-execute-command): Disable visual + features while searching. + 2002-10-22 TSUCHIYA Masatoshi * pgg.el (pgg-snarf-keys): Do not refer unbinded local variables. 2002-10-22 Simon Josefsson - * 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 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." -- 1.7.10.4