On Thursday, July 24, 2003 at 12:01:17, Robert Widhopf wrote:
> On Monday, June 23, 2003 at 20:20:46, Marcus Frings wrote:
> > Hello,
> >
> > some people use in their FROM for Usenet postings the address
> > <[EMAIL PROTECTED]> which is just a spamtrap for moving messages to
> > /dev/null. Of course I don't want to have these addresses as
> > records in my BBDB. Therefore I wrote the following:
> >
> > (setq bbdb-auto-notes-ignore
> > '(
> > ("From" . "[EMAIL PROTECTED]")))
> >
> > (setq bbdb-auto-notes-ignore-all
> > '(
> > ("From" . "[EMAIL PROTECTED]")))
> >
> > Unfortunately this doesn't seem to work because BBDB asks me if I
> > want to add these addresses to my friends who already got an entry
> > in my database. Any ideas?
[A mail from Marcus is somewhere to arrive soon ...]
By looking at bbdb-annotate-message-sender the arg CREATE-P
(bbdb/mail-auto-create-p) is not addressing this, as we are
finding already an record for this person. But furthermore
it is also not honored for creating a new record.
Actually the variable `bbdb-always-add-addresses' is doing
the trick. However, its current semantics do not allow it
to be set to bbdb-ignore-some-messages-hook in order to
avoid adding the addresses.
Thus I propose the following change ... however this will
break default behavior, i.e. being asked to create a new
record for people which are already in the BBDB ...
So have a look at this an vote for it or against ...
Robert
Index: bbdb.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb.el,v
retrieving revision 1.213
diff -c -r1.213 bbdb.el
*** bbdb.el 24 Jul 2003 09:43:17 -0000 1.213
--- bbdb.el 24 Jul 2003 14:11:24 -0000
***************
*** 528,540 ****
(list 'regexp :tag "Pattern matching your addresses"
(or (user-login-name) "address"))))
! (defcustom bbdb-always-add-addresses nil
"*If this is true, then when the Insidious Big Brother Database notices
! a new email address for a person, it will automatically add it to the list
! of addresses. If it is nil, you will be asked whether to add it. If it is
! the symbol 'never (really, if it is any non-t, non-nil value which is no
! function name) then new network addresses will never be automatically added
! nor the user will be asked.
When set to a function name the function should return one of these values.
--- 528,539 ----
(list 'regexp :tag "Pattern matching your addresses"
(or (user-login-name) "address"))))
! (defcustom bbdb-always-add-addresses 'ask
"*If this is true, then when the Insidious Big Brother Database notices
! a new email address for a person, it will automatically add it to the list of
! addresses. If it is 'ask, you will be asked whether to add it. If it is nil
! then new network addresses will never be automatically added nor the user will
! be asked.
When set to a function name the function should return one of these values.
***************
*** 542,549 ****
the addresses go at the front of the list or the back."
:group 'bbdb-noticing-records
:type '(choice (const :tag "Automatically add new addresses" t)
! (const :tag "Ask before adding new addresses" nil)
! (const :tag "Never add new addresses" never)))
(defcustom bbdb-new-nets-always-primary nil
"*If this is true, then when the Insidious Big Brother Database adds a new
--- 541,550 ----
the addresses go at the front of the list or the back."
:group 'bbdb-noticing-records
:type '(choice (const :tag "Automatically add new addresses" t)
! (const :tag "Ask before adding new addresses" ask)
! (const :tag "Never add new addresses" nil)
! (const bbdb-ignore-some-messages-hook)
! (const bbdb-ignore-most-messages-hook)))
(defcustom bbdb-new-nets-always-primary nil
"*If this is true, then when the Insidious Big Brother Database adds a new
***************
*** 3286,3292 ****
((eq bbdb-always-add-addresses t)
t)
;; do not add it
! (bbdb-always-add-addresses ; non-t and non-nil = never
nil)
;; ask the user if it should be added
(t
--- 3287,3293 ----
((eq bbdb-always-add-addresses t)
t)
;; do not add it
! ((null bbdb-always-add-addresses)
nil)
;; ask the user if it should be added
(t
***************
*** 3317,3325 ****
;; then add the new net
t
;; else add a new record with the same name
! (if (bbdb-y-or-n-p
! (format "Create a new record for %s? "
! (bbdb-record-name record)))
(setq record
(bbdb-create-internal name nil net
nil nil nil)))
--- 3318,3327 ----
;; then add the new net
t
;; else add a new record with the same name
! (if (and create-p
! (bbdb-y-or-n-p
! (format "Create a new record for %s? "
! (bbdb-record-name record))))
(setq record
(bbdb-create-internal name nil net
nil nil nil)))
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
