New transformer: company-sort-prefer-same-case-prefix

[gnu-emacs-elpa] / company-bbdb.el

diff --git a/company-bbdb.el b/company-bbdb.el
index b83ce0f9db2d72224883e094b088573bc55dfbea..872e1fcf05dc43ecd53601332d0efe94f8fcfe6e 100644 (file)
--- a/company-bbdb.el
+++ b/company-bbdb.el
@@ -1,6 +1,6 @@
 ;;; company-bbdb.el --- company-mode completion backend for BBDB in message-mode
 
-;; Copyright (C) 2013-2014  Free Software Foundation, Inc.
+;; Copyright (C) 2013-2014, 2016  Free Software Foundation, Inc.
 
 ;; Author: Jan Tatarik <jan.tatarik@gmail.com>
 
@@ -50,7 +50,7 @@
     (interactive (company-begin-backend 'company-bbdb))
     (prefix (and (memq major-mode company-bbdb-modes)
                  (featurep 'bbdb-com)
-                 (looking-back "^\\(To\\|Cc\\|Bcc\\): *\\(.*\\)"
+                 (looking-back "^\\(To\\|Cc\\|Bcc\\): *.*? *\\([^,;]*\\)"
                                (line-beginning-position))
                  (match-string-no-properties 2)))
     (candidates (company-bbdb--candidates arg))