emacs: add `notmuch-show-stash-mlarchive-link{, -and-go}'

[notmuch] / test / emacs

diff --git a/test/emacs b/test/emacs
index b74cfa9518486a4c62ff6c7762b4b06c7ddd755b..dcfc6758e9cd6f22d1b318d3561edf7e2c2b87c3 100755 (executable)
--- a/test/emacs
+++ b/test/emacs
@@ -266,7 +266,7 @@ From: Notmuch Test Suite <test_suite@notmuchmail.org>
 To: user@example.com
 Subject: Re: Testing message sent via SMTP
 In-Reply-To: <XXX>
 To: user@example.com
 Subject: Re: Testing message sent via SMTP
 In-Reply-To: <XXX>

-Fcc: $(pwd)/mail/sent
+Fcc: ${MAIL_DIR}/sent

 --text follows this line--
 On 01 Jan 2000 12:00:00 -0000, Notmuch Test Suite <test_suite@notmuchmail.org> wrote:
 > This is a test that messages are sent via SMTP
 --text follows this line--
 On 01 Jan 2000 12:00:00 -0000, Notmuch Test Suite <test_suite@notmuchmail.org> wrote:
 > This is a test that messages are sent via SMTP


@@ -402,9 +402,12 @@ test_emacs '(notmuch-show "id:\"bought\"")
        (notmuch-show-stash-message-id-stripped)
        (notmuch-show-stash-tags)
        (notmuch-show-stash-filename)
        (notmuch-show-stash-message-id-stripped)
        (notmuch-show-stash-tags)
        (notmuch-show-stash-filename)

+       (notmuch-show-stash-mlarchive-link "Gmane")
+       (notmuch-show-stash-mlarchive-link "MARC")
+       (notmuch-show-stash-mlarchive-link "Mail Archive, The")

        (switch-to-buffer
          (generate-new-buffer "*test-stashing*"))
        (switch-to-buffer
          (generate-new-buffer "*test-stashing*"))

-       (dotimes (i 9)
+       (dotimes (i 12)

          (yank)
          (insert "\n")
          (rotate-yank-pointer 1))
          (yank)
          (insert "\n")
          (rotate-yank-pointer 1))


@@ -420,6 +423,9 @@ id:"bought"
 bought
 inbox,stashtest
 ${gen_msg_filename}
 bought
 inbox,stashtest
 ${gen_msg_filename}

+http://mid.gmane.org/bought
+http://marc.info/?i=bought
+http://mail-archive.com/search?l=mid&q=bought

 EOF
 test_expect_equal_file OUTPUT EXPECTED
 
 EOF
 test_expect_equal_file OUTPUT EXPECTED