From: yamaoka <yamaoka>
Date: Tue, 8 Oct 2002 22:51:13 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-04-quimby~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4259e2bb8425944c7d30d33a334cf8ea35530d02;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27e7430..5e8a133 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-08  Kai Gro,A_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+	* gnus-agent.el (gnus-agent-fetch-selected-article): Bind
+	gnus-agent-current-history.
+
 2002-10-06  Simon Josefsson  <jas@extundo.com>
 
 	* imap.el (imap-parse-status): Don't use read to read token.
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index df30949..9c43a2d 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -802,9 +802,11 @@ This can be added to `gnus-select-article-hook' or
 `gnus-mark-article-hook'."
   (let ((gnus-command-method gnus-current-select-method))
     (when (and gnus-plugged (gnus-agent-method-p gnus-command-method))
-      (gnus-agent-fetch-articles
-       gnus-newsgroup-name
-       (list gnus-current-article)))))
+      (let ((gnus-agent-current-history
+	     (gnus-agent-history-buffer)))
+	(gnus-agent-fetch-articles
+	 gnus-newsgroup-name
+	 (list gnus-current-article))))))
 
 ;;;
 ;;; Internal functions
diff --git a/lisp/spam.el b/lisp/spam.el
index 1e6bc45..4dc3098 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -39,6 +39,10 @@
 (require 'dns)
 (require 'message)
 
+;; BBDB autoloads
+(autoload 'bbdb-search "bbdb-com")
+(autoload 'bbdb-records "bbdb-com")
+
 ;;; Main parameters.
 
 (defvar spam-use-blacklist t
@@ -261,8 +265,6 @@ The regular expression is matched against the address.")
   (if (spam-from-listed-p spam-whitelist-cache) nil spam-split-group))
 
 ;;; copied from code by Alexander Kotelnikov <sacha@giotto.sj.ru>
-;; FIXME: assumes that bbdb.el is loaded
-;; FIXME: broken right now, if the "from" field can't be retrieved
 (defun spam-check-bbdb ()
   "We want messages from people who are in the BBDB not to be split to spam"
   (let ((who (message-fetch-field "from")))