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

[notmuch] / test / emacs

diff --git a/test/emacs b/test/emacs
index 13b0471f06d974270dabe8bee931d9b114f43e78..dcfc6758e9cd6f22d1b318d3561edf7e2c2b87c3 100755 (executable)
--- a/test/emacs
+++ b/test/emacs
@@ -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