From 58bab7b01496f2d26dd3d766ff060152daef25e7 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sat, 18 Mar 2023 20:21:43 +0100
Subject: edit tag/handle regex to handle preceding opening bracket. FIX #406.

---
 lisp/mastodon-toot.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lisp/mastodon-toot.el')

diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 8d63fce..87b4afb 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -223,16 +223,16 @@ send.")
 
 (defvar mastodon-toot-handle-regex
   (concat
-   ;; preceding space or bol [boundary doesn't work with @]
-   "\\([\n\t ]\\|^\\)"
+   ;; preceding bracket, space or bol [boundary doesn't work with @]
+   "\\([(\n\t ]\\|^\\)"
    "\\(?2:@[1-9a-zA-Z._-]+" ; a handle
    "\\(@[^ \n\t]*\\)?\\)" ; with poss domain, * = allow only @
    "\\b"))
 
 (defvar mastodon-toot-tag-regex
   (concat
-   ;; preceding space or bol [boundary doesn't work with #]
-   "\\([\n\t ]\\|^\\)"
+   ;; preceding bracket, space or bol [boundary doesn't work with #]
+   "\\([(\n\t ]\\|^\\)"
    "\\(?2:#[1-9a-zA-Z_]+\\)" ; tag
    "\\b")) ; boundary
 
-- 
cgit v1.2.3