From: Jani Nikula <jani@nikula.org>
Date: Tue, 5 Jun 2012 15:42:51 +0000 (+0300)
Subject: emacs: only strip "re:" in the beginning of subject
X-Git-Tag: 0.14~99
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=0ff57e75cf5847d2cbef97a49badb4cccc618300;hp=627f7b27f9756287795343cbb8a3137f74efccf9

emacs: only strip "re:" in the beginning of subject

Fix notmuch-show-strip-re by matching "re:" only in the beginning of
the input string.
---

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index d318430c..36cad933 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -819,7 +819,7 @@ message at DEPTH in the current thread."
   (make-symbol (concat "notmuch-show-" type)))
 
 (defun notmuch-show-strip-re (string)
-  (replace-regexp-in-string "\\([Rr]e: *\\)+" "" string))
+  (replace-regexp-in-string "^\\([Rr]e: *\\)+" "" string))
 
 (defvar notmuch-show-previous-subject "")
 (make-variable-buffer-local 'notmuch-show-previous-subject)
diff --git a/test/emacs-show b/test/emacs-show
index 1ddb28eb..e9a714fa 100755
--- a/test/emacs-show
+++ b/test/emacs-show
@@ -33,7 +33,6 @@ output=$(test_emacs '(notmuch-show-strip-re "re:Re: re:  Re:  re:subject")')
 test_expect_equal "$output" '"subject"'
 
 test_begin_subtest "Bare subject #3"
-test_subtest_known_broken
 output=$(test_emacs '(notmuch-show-strip-re "the cure: fix the regexp")')
 test_expect_equal "$output" '"the cure: fix the regexp"'