From e10463b83e73dd8ace1708ef08deb474da088146 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 26 Sep 2002 13:06:23 +0000 Subject: [PATCH] (TopLevel): Add gourp parameter `bbdb-auto-create-p'. (gnus-bbdb/update-record): Use group parameter `bbdb-auto-create-p'. --- lisp/gnus-bbdb.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el index c2647f5..5beeabc 100644 --- a/lisp/gnus-bbdb.el +++ b/lisp/gnus-bbdb.el @@ -37,6 +37,11 @@ (require 'gnus-win) (require 'cl)) +(add-to-list 'gnus-user-group-parameters + '(bbdb-auto-create-p + (const :tag "Auto register address to BBDB" t) + "Create new bbdb records people you receive mail from.")) + (defvar gnus-bbdb/decode-field-body-function 'nnheader-decode-field-body "*Field body decoder.") @@ -71,6 +76,11 @@ the user confirms the creation." (bbdb-annotate-message-sender from t (or (bbdb-invoke-hook-for-value bbdb/news-auto-create-p) + (gnus-group-find-parameter + (with-current-buffer + gnus-article-current-summary + gnus-newsgroup-name) + 'bbdb-auto-create-p t) offer-to-create) offer-to-create)))))) -- 1.7.10.4