From: yamaoka <yamaoka>
Date: Thu, 16 Jan 2003 00:35:23 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_14-00-quimby~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f3872cd6656783a7b1bc9751491fd003d343dd4;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/spam.el b/lisp/spam.el
index 78a36ba..8eb5306 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -777,9 +777,12 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
 (defun spam-bogofilter-score ()
   "Get the Bogofilter spamicity score"
   (interactive)
-  (let ((score (spam-check-bogofilter t)))
-    (message "Spamicity score %s" score)
-    (or score "0")))
+  (save-window-excursion
+    (gnus-summary-show-article t)
+    (set-buffer gnus-article-buffer)
+    (let ((score (spam-check-bogofilter t)))
+      (message "Spamicity score %s" score)
+      (or score "0"))))
 
 (defun spam-check-bogofilter (&optional score)
   "Check the Bogofilter backend for the classification of this message"