From 0f3872cd6656783a7b1bc9751491fd003d343dd4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 16 Jan 2003 00:35:23 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/spam.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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" -- 1.7.10.4