[PATCH] piem-name-branch-who-what-v: Relax sender name extraction

[PATCH] piem-name-branch-who-what-v: Relax sender name extraction

[Kyle Meyer]

Let-bind mail-extr-ignore-realname-equals-mailbox-name to nil
(defaults to t) so that a sender name is returned for addresses like
"name <name@a.com>" and "name@a.com".

Also, let-bind mail-extr-ignore-single-names to its default value of
nil so that a user setting this option to t doesn't interfere with
piem-name-branch-who-what-v.
---
 piem.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/piem.el b/piem.el
index 6ec757d..eb7b2f8 100644
--- a/piem.el
+++ b/piem.el
@@ -38,6 +38,7 @@
 ;;; Code:
 
 (require 'cl-lib)
+(require 'mail-extr)
 (require 'message)
 (require 'piem-maildir)
 (require 'rfc2047)
@@ -611,7 +612,9 @@ (defun piem-name-branch-who-what-v (info)
 INFO is a plist with properties documented
 in `piem-default-branch-function'."
   (when-let ((from (plist-get info :from))
-             (sender (car (mail-extract-address-components from)))
+             (sender (let ((mail-extr-ignore-single-names nil)
+                           (mail-extr-ignore-realname-equals-mailbox-name nil))
+                       (car (mail-extract-address-components from))))
              (subject (plist-get info :subject)))
     (let* ((subnames (split-string sender))
            (initials (mapconcat

base-commit: 087ed89c30fe96fc7ff1ed13c0895317d180c4d1
-- 
2.28.0