From 4259e2bb8425944c7d30d33a334cf8ea35530d02 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 8 Oct 2002 22:51:13 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-agent.el | 8 +++++--- lisp/spam.el | 6 ++++-- 3 files changed, 14 insertions(+), 5 deletions(-) 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 + + * gnus-agent.el (gnus-agent-fetch-selected-article): Bind + gnus-agent-current-history. + 2002-10-06 Simon Josefsson * 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 -;; 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"))) -- 1.7.10.4