[elpa] master e3d7d60 02/38: company-bbdb: Support more headers like From:

[Dmitry Gutov]

branch: master
commit e3d7d60108d40f4c5d9159e7ecf443842a2b5e29
Author: OGAWA Hirofumi <hirofumi@mail.parknet.co.jp>
Commit: OGAWA Hirofumi <hirofumi@mail.parknet.co.jp>

    company-bbdb: Support more headers like From:
    
    Fixes #957.
---
 company-bbdb.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/company-bbdb.el b/company-bbdb.el
index 872e1fc..a68c34e 100644
--- a/company-bbdb.el
+++ b/company-bbdb.el
@@ -50,9 +50,11 @@
     (interactive (company-begin-backend 'company-bbdb))
     (prefix (and (memq major-mode company-bbdb-modes)
                  (featurep 'bbdb-com)
-                 (looking-back "^\\(To\\|Cc\\|Bcc\\): *.*? *\\([^,;]*\\)"
-                               (line-beginning-position))
-                 (match-string-no-properties 2)))
+                 (let ((case-fold-search t))
+                   (looking-back
+                    "^\\([^ :]*-\\)?\\(To\\|B?Cc\\|From\\):.*? *\\([^,;]*\\)"
+                    (line-beginning-position)))
+                 (match-string-no-properties 3)))
     (candidates (company-bbdb--candidates arg))
     (sorted t)
     (no-cache t)))