From 0e7fc5fbca5d189746731ca543d5454e42199a45 Mon Sep 17 00:00:00 2001 From: JoaoOneillCortes Date: Tue, 5 Mar 2019 21:36:59 +0000 Subject: [PATCH] Fixed call of bbdb/gnus-split-to-group from bbdb/gnus-split-method Otherwise, any 'to' header with multiple addresses would result in a call to error at line 314 --- lisp/bbdb-gnus-aux.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/bbdb-gnus-aux.el b/lisp/bbdb-gnus-aux.el index 4d3052c..74b112f 100644 --- a/lisp/bbdb-gnus-aux.el +++ b/lisp/bbdb-gnus-aux.el @@ -252,7 +252,7 @@ spooled, using the addresses in the headers and information from BBDB." (let* ((hdr (or (mail-fetch-field "resent-from") (mail-fetch-field "from") (user-login-name))) - (rv (bbdb/gnus-split-to-group hdr t))) + (rv (bbdb/gnus-split-to-group (bbdb-extract-address-components hdr) t))) (setcdr (nth (cdr rv) prq) (list (car rv)))) ;; do the rest of the headers (let ((hdr (or (concat (or (mail-fetch-field "resent-to" nil t) @@ -283,7 +283,7 @@ spooled, using the addresses in the headers and information from BBDB." "This function is called from `bbdb/gnus-split-method' in order to determine the group and spooling priority for a single address." (condition-case nil - (let* ((tmp (bbdb-extract-address-components address)) + (let* ((tmp address) (mail (cadr tmp)) (record (car (bbdb-message-search (car tmp) mail))) public private rgx)