From 4ecc8e686b58c7137f9a9e1b2373b40cabb22ef7 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 24 May 2020 02:50:31 +0100
Subject: [PATCH] dot/vm: Make `vm-reply-ignored-addresses' patterns match
 correctly.

They're taken from the BBDB patterns, but BBDB only matches the actual
mailbox part of an address, while VM wants to match the entire address
string.  Strip off leading `^' and trailing `$', and wrap `\<...\>'
around instead.
---
 dot/vm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/dot/vm b/dot/vm
index 751b107..c982842 100644
--- a/dot/vm
+++ b/dot/vm
@@ -29,7 +29,13 @@
 			   "subject:" "date:"
 			   "delivered-to:" "return-path:"))
 
-(setq vm-reply-ignored-addresses (cons bbdb-user-mail-names nil))
+(setq vm-reply-ignored-addresses
+      (let ((pat bbdb-user-mail-names))
+	(if (string-prefix-p "^" pat)
+	    (setq pat (substring pat 1)))
+	(if (string-suffix-p "$" pat)
+	    (setq pat (substring pat 0 (1- (length pat)))))
+	(cons (concat "\\<" pat "\\>") nil)))
 
 (defvar mdw-mailing-lists
   '("hibachi-dealers-members@chiark\\.greenend\\.org\\.uk"))
-- 
2.11.0