[elpa] master 94e22c4 03/38: Merge pull request #958 from OGAWAHirofumi/company-bbdb-add-more-header

[Dmitry Gutov]

branch: master
commit 94e22c45e92cf220abb9b5a582f85aa99c06004d
Merge: 490d3e4 e3d7d60
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@github.com>

    Merge pull request #958 from OGAWAHirofumi/company-bbdb-add-more-header
    
    company-bbdb: Support more headers like From:
---
 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)))