BBDB Version: 2.35 as packaged by Debian Emacs/XEmacs Version: GNU Emacs 21.3 Mail/News reader (Gnus, VM, etc) used: 7.17 Bug Description:
While paging through email messages in VM, `bbdb-update-records' raises an error on emails from a particular sender, which prevents VM from displaying emails from that person. The cause seems to be that somehow the sender gets a "From" header like "From: [EMAIL PROTECTED]<>" through the MTAs, which eventually gets parsed for BBDB as `(nil nil)'. Perhaps two changes be good: (1) parse that pathological address format; and (2) make bbdb-update-records cope with getting passed `(nil nil)' parsed addresses. An edited traceback is shown below, with bytecode elided, and the actual email address and subject replaced with dummy values. Thanks, Neil Debugger entered--Lisp error: (wrong-type-argument stringp nil) regexp-quote(nil) byte-code(... [bbdb-update-records-mode bbdb-address offer-to-create auto-create-p x bbdb-case-fold-search annotating bbdb-annotate-message-sender t bbdb-prompt-for-create searching "^" regexp-quote "$" nil bbdb-search-invert-p 6 string-match "" quit 5 0 format "Hit C-g to stop BBDB from %s. %d of %d addresses processed." featurep xemacs bbdb-display-message progress message sit-for net bbdb-records record invert records case-fold-search matches done rest-of-nets hits processed-addresses bbdb-silent-running bbdb-gag-messages bbdb-offer-to-create addrslen mess] 6) bbdb-update-records(((authors "From" (nil nil)) (authors "Reply-To" (nil "[EMAIL PROTECTED]"))) nil nil) (setq records (bbdb-update-records (bbdb-get-addresses bbdb-get-only-first-address-p vm-summary-uninteresting-senders ... ...) bbdb/mail-auto-create-p offer-to-create)) (let ((bbdb-update-records-mode ...)) (setq records (bbdb-update-records ... bbdb/mail-auto-create-p offer-to-create)) (bbdb-encache-message msg records)) (if cache (setq records (if bbdb-get-only-first-address-p ... cache)) (let (...) (setq records ...) (bbdb-encache-message msg records))) (let ((msg ...) (enable-local-variables t) (inhibit-quit nil) (bbdb/vm-offer-to-create offer-to-create) cache records) (if (not bbdb/vm-offer-to-create) (setq cache ...)) (if cache (setq records ...) (let ... ... ...)) records) bbdb/vm-update-records(nil) (let ((bbdb-gag-messages t) (bbdb-electric-p nil) (records ...) (bbdb-buffer-name bbdb-buffer-name)) (when (and bbdb-use-pop-up records) (bbdb-pop-up-bbdb-buffer ...) (bbdb-display-records records bbdb-pop-up-display-layout)) (when (not records) (bbdb-undisplay-records) (if ... ...))) (save-excursion (let (... ... ... ...) (when ... ... ...) (when ... ... ...))) bbdb/vm-pop-up-bbdb-buffer() run-hooks(vm-select-message-hook) vm-run-message-hook([[#<marker at 141531 in inbox> #<marker at 141575 in inbox> nil #<marker at 142603 in inbox> #<marker at 145991 in inbox> #<marker at 145992 in inbox>] ["21" " 21" nil #<marker at 1660 in inbox Summary> #<marker at 1727 in inbox Summary> <<>> <-- From_ "64" #<buffer inbox> nil nil nil nil nil nil nil nil #<overlay from 1660 to 1727 in inbox Summary> nil] [nil nil nil t nil nil nil nil nil] [nil "Monday" "21" "July" "2003" "11:31:35" "+0800" "[EMAIL PROTECTED]<>" "[EMAIL PROTECTED]<>" nil "84" "Your Subject Here " "^From:" nil nil "7" nil nil (number " " mark " F [EMAIL PROTECTED] 21-Jul 84 Your Subject Here \n") nil nil nil nil nil nil] [nil <v> nil nil nil nil]] vm-select-message-hook) vm-preview-current-message() vm-goto-message(21) call-interactively(vm-goto-message) ------------------------------------------------------- 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/
