From a8d858b6658fc4f0b9fe71073c958b342425f7a0 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 19 Jan 2021 00:40:42 -0500 Subject: inject: Anchor 'From mboxrd@z ...' search piem--write-mbox-to-maildir finds the bounds for each message by doing a plain search for "From mboxrd@z", but of course nothing prevents that from being within the text of the message. Anchor it to the start of the line to prevent false positives. Message-Id: <20210119054042.11985-1-kyle@kyleam.com> --- piem.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/piem.el b/piem.el index 8c23e7b..867a7e5 100644 --- a/piem.el +++ b/piem.el @@ -489,9 +489,9 @@ A buffer with the decompressed content is returned." (let ((n-added 0) (n-skipped 0)) (while (and (not (eobp)) - (search-forward "From mboxrd@z" nil t)) + (re-search-forward "^From mboxrd@z" nil t)) (let* ((beg (line-beginning-position 2)) - (end (or (and (search-forward "From mboxrd@z" nil t) + (end (or (and (re-search-forward "^From mboxrd@z" nil t) (progn (goto-char (line-beginning-position 0)) (point-marker))) (point-max-marker))) -- cgit v1.2.3