diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2021-06-05 17:13:54 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2021-06-07 00:12:06 -0400 |
| commit | f8fed3d666fb9b514a7d33bd869b64446cf2f1ed (patch) | |
| tree | 3a058a09518ef90ff3aa2271cdb0c28ee614cbb5 | |
| parent | b28593830b8f99a24c562a4764e5a0d3bfb25831 (diff) | |
| download | piem-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.el | 3 |
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 |