> * Roland Winkler <jvax...@tah.bet> [2012-06-24 03:52:06 -0500]:
>
> Thanks to Sam Steingold for submitting several patches.

so, how about the write access?
otherwise, please commit as soon as possible:

--8<---------------cut here---------------start------------->8---
2012-06-26  Sam Steingold  <s...@gnu.org>
        * lisp/bbdb-mua.el (bbdb-get-address-components): Address
        components may be nil.


diff --git a/lisp/bbdb-mua.el b/lisp/bbdb-mua.el
index 6acd31e..9a68d58 100644
--- a/lisp/bbdb-mua.el
+++ b/lisp/bbdb-mua.el
@@ -169,9 +169,12 @@ is ignored. If IGNORE-ADDRESS is nil, use value of 
`bbdb-user-mail-address-re'."
           ;; address might match IGNORE-ADDRESS.
           (dolist (address (mail-extract-address-components content t))
             ;; We canonicalize name and mail as early as possible.
-            (setq name (funcall bbdb-message-clean-name-function
-                                (nth 0 address))
-                  mail (bbdb-canonicalize-mail (nth 1 address)))
+            (setq name (nth 0 address)
+                  mail (nth 1 address))
+            (when name
+              (setq name (funcall bbdb-message-clean-name-function name)))
+            (when mail
+              (setq mail (bbdb-canonicalize-mail mail)))
             ;; ignore uninteresting addresses
             (unless (or (and (stringp ignore-address)
                              (or (and name (string-match ignore-address name))
--8<---------------cut here---------------end--------------->8---

otherwise I see

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match("\\`[^[:alpha:]]+" nil)
  bbdb-message-clean-name-default(nil)
  bbdb-get-address-components(nil)
  bbdb-mua-update-records(nil search)
  bbdb-mua-auto-update()
  run-hooks(gnus-article-prepare-hook)
  apply(run-hooks gnus-article-prepare-hook)
  gnus-run-hooks(gnus-article-prepare-hook)
  gnus-article-prepare(3153 nil)
  gnus-summary-display-article(3153 nil)
  gnus-summary-select-article(nil nil pseudo)
  gnus-summary-scroll-up(1)
  call-interactively(gnus-summary-scroll-up nil nil)


-- 
Sam Steingold (http://sds.podval.org/) on Ubuntu 12.04 (precise) X 11.0.11103000
http://www.childpsy.net/ http://americancensorship.org http://camera.org
http://memri.org http://pmw.org.il http://dhimmi.com http://think-israel.org
I'm out of my mind, but feel free to leave a message...


------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and 
threat landscape has changed and how IT managers can respond. Discussions 
will include endpoint security, mobile security and the latest in malware 
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to