(spam-bogofilter-articles): Select the article

body using gnus-summary-show-article t instead of
gnus-summary-select-article; this presents the raw text
without running any hooks.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a689811..4d1e044 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-12-31  Teodor Zlatanov  <tzz@lifelogs.com>
+       patch from Michael Shields  <shields@msrl.com>
+
+       * spam.el (spam-bogofilter-articles): Select the article
+       body using gnus-summary-show-article t instead of
+       gnus-summary-select-article; this presents the raw text
+       without running any hooks.
+
 2002-12-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-start.el (gnus-load): Replace `ding-file' with `file'.

diff --git a/lisp/spam.el b/lisp/spam.el
index cbbad60..433aba0 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -538,7 +538,7 @@ spamicity coefficient of each, and the overall article spamicity."
              (message "%s %d" prefix counter))
            (setq article (pop articles))
            (gnus-summary-goto-subject article)
-           (gnus-summary-select-article)
+           (gnus-summary-show-article t)
            (gnus-eval-in-buffer-window article-copy
              (insert-buffer-substring gnus-original-article-buffer)
              ;; Remove spam classification redundant headers: they may induce