bbdb-search problem

[Alexander Kotelnikov <sacha@giotto.sj.ru>]

Hello.

I have a function, which checks if incoming mail is from someone who
is in my ~/.bbdb:
(defun my-bbdb-split ()
  "We want people, who are in bbdb not to be splitted to spam"
  (let ((who (cadr
	      (gnus-extract-address-components (message-fetch-field "from"))
	      )))
    (if (bbdb-search (bbdb-records) nil nil who)
	nil
        '(: spam-split)
      )
    )
  )

And I got spam mail with From: that looks like
From: "Bullseye Stock Profiles" <Dreply-[-recipid-_r-5495489-58@1ad7bd.net>

and bbdb-search fails due to '[' presence in the address:
Debugger entered--Lisp error: (invalid-regexp "Unmatched [ or [^")
  string-match("Dreply-[-recipid-_r-5495489-58@1ad7bd.net" "theo@pdmi.ras.ru")
  (setq done (string-match who (car rest-of-nets)) rest-of-nets (cdr rest-of-nets))
  (while (and rest-of-nets (not done)) (setq done (string-match who ...) rest-of-nets (cdr rest-of-nets)))
  (if rest-of-nets (while (and rest-of-nets ...) (setq done ... rest-of-nets ...)) (setq done (string-match who "")))
  (let ((rest-of-nets ...) (done nil)) (if rest-of-nets (while ... ...) (setq done ...)) done)
  (or (let (... ...) (if rest-of-nets ... ...) done))
  (and (not invert) (or (let ... ... done)))
  (or (and invert (not ...)) (and (not invert) (or ...)))
  (if (or (and invert ...) (and ... ...)) (setq matches (cons record matches)))
  (while records (setq record (car records)) (if (or ... ...) (setq matches ...)) (setq records (cdr records)))
  (let ((matches ...) (case-fold-search bbdb-case-fold-search) (records ...) (invert ...) record) (while records (setq record ...) (if ... ...) (setq records ...)) (nreverse matches))
  (bbdb-search (bbdb-records) nil nil who)
  (if (bbdb-search (bbdb-records) nil nil who) nil (quote (: spam-split)))
  (let ((who ...)) (if (bbdb-search ... nil nil who) nil (quote ...)))
  my-bbdb-split()
  eval((my-bbdb-split))
  nnmail-split-it((: my-bbdb-split))
  nnmail-split-it((| (: pre-split) (: my-bbdb-split) (: ml-split) (: sj-split) (: post-split) "IMAP/junk"))
  nnmail-split-fancy()
  nnimap-split-fancy()
  nnimap-split-to-groups(nnimap-split-fancy)
  nnimap-split-articles(nil "giotto")
  nnimap-request-scan(nil "giotto")
  gnus-request-scan(nil (nnimap "giotto" (nnimap-address "giotto.sj.ru") (nnimap-stream shell) (nnimap-list-pattern ("INBOX" "IMAP/*"))))
  gnus-read-active-file-1((nnimap "giotto" (nnimap-address "giotto.sj.ru") (nnimap-stream shell) (nnimap-list-pattern ("INBOX" "IMAP/*"))) nil)
  gnus-read-active-file(nil nil)
  gnus-setup-news(nil nil nil)
  byte-code("\b└\x0e
  gnus-1(nil nil nil)
  gnus(nil)
* call-interactively(gnus)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

Probably, addresses should be quotted to avoid troubles like this.

-- 
Alexander Kotelnikov
Saint-Petersburg, Russia