From: keiichi <keiichi>
Date: Thu, 26 Sep 2002 13:06:23 +0000 (+0000)
Subject: (TopLevel): Add gourp parameter `bbdb-auto-create-p'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e10463b83e73dd8ace1708ef08deb474da088146;p=elisp%2Fgnus.git-

(TopLevel): Add gourp parameter `bbdb-auto-create-p'.
(gnus-bbdb/update-record): Use group parameter `bbdb-auto-create-p'.
---

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))))))