aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2021-06-05 17:13:54 -0400
committerKyle Meyer <kyle@kyleam.com>2021-06-07 00:12:06 -0400
commitf8fed3d666fb9b514a7d33bd869b64446cf2f1ed (patch)
tree3a058a09518ef90ff3aa2271cdb0c28ee614cbb5
parentb28593830b8f99a24c562a4764e5a0d3bfb25831 (diff)
downloadpiem-f8fed3d666fb9b514a7d33bd869b64446cf2f1ed.tar.gz
piem-lei-query-thread: Deal with multiple "re:"s
piem-lei-query-thread strips a message's subject of "re: " before checking matches the previous line's subject and should be dropped. "re: re: <subjects>" unfortunately don't seem uncommon, so strip multiple "re:"s. Message-Id: <20210605211402.20304-11-kyle@kyleam.com>
-rw-r--r--piem-lei.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/piem-lei.el b/piem-lei.el
index 43ab01e..cf19195 100644
--- a/piem-lei.el
+++ b/piem-lei.el
@@ -387,7 +387,8 @@ Return a list with a `piem-lei-msg' object for each root."
(let* ((data (cdr (assoc mid-msg records)))
(subject (let ((case-fold-search t))
(replace-regexp-in-string
- (rx string-start "re:" (one-or-more space))
+ (rx string-start
+ (one-or-more "re:" (one-or-more space)))
""
(string-trim (cdr (assq 's data)))))))
(insert