mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-12-23 01:44:52 +01:00
b45b72aa14
Since the recent reply changes were pushed, there has been a bug that causes emacs to always reply from the primary address, even if the JSON or default CLI reply output uses an alternate address. This adds two tests to the emacs test library based on the two "Reply form..." tests in the reply test library. One is currently marked broken.
694 lines
26 KiB
Bash
Executable file
694 lines
26 KiB
Bash
Executable file
#!/usr/bin/env bash
|
|
|
|
test_description="emacs interface"
|
|
. test-lib.sh
|
|
|
|
EXPECTED=$TEST_DIRECTORY/emacs.expected-output
|
|
|
|
add_email_corpus
|
|
|
|
test_begin_subtest "Basic notmuch-hello view in emacs"
|
|
test_emacs '(notmuch-hello)
|
|
(test-output)'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello
|
|
|
|
test_begin_subtest "Saved search with 0 results"
|
|
test_emacs '(let ((notmuch-show-empty-saved-searches t)
|
|
(notmuch-saved-searches
|
|
'\''(("inbox" . "tag:inbox")
|
|
("unread" . "tag:unread")
|
|
("empty" . "tag:doesnotexist"))))
|
|
(notmuch-hello)
|
|
(test-output))'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-with-empty
|
|
|
|
test_begin_subtest "No saved searches displayed (all with 0 results)"
|
|
test_emacs '(let ((notmuch-saved-searches
|
|
'\''(("empty" . "tag:doesnotexist"))))
|
|
(notmuch-hello)
|
|
(test-output))'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-no-saved-searches
|
|
|
|
test_begin_subtest "Basic notmuch-search view in emacs"
|
|
test_emacs '(notmuch-search "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(test-output)'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-search-tag-inbox
|
|
|
|
test_begin_subtest "Navigation of notmuch-hello to search results"
|
|
test_emacs '(notmuch-hello)
|
|
(goto-char (point-min))
|
|
(re-search-forward "inbox")
|
|
(widget-button-press (point))
|
|
(notmuch-test-wait)
|
|
(test-output)'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-hello-view-inbox
|
|
|
|
test_begin_subtest "Basic notmuch-show view in emacs"
|
|
maildir_storage_thread=$(notmuch search --output=threads id:20091117190054.GU3165@dottiness.seas.harvard.edu)
|
|
test_emacs "(notmuch-show \"$maildir_storage_thread\")
|
|
(test-output)"
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-maildir-storage
|
|
|
|
test_begin_subtest "Basic notmuch-show view in emacs default indentation"
|
|
maildir_storage_thread=$(notmuch search --output=threads id:20091117190054.GU3165@dottiness.seas.harvard.edu)
|
|
test_emacs "(let ((notmuch-show-indent-messages-width 1))
|
|
(notmuch-show \"$maildir_storage_thread\")
|
|
(test-output))"
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-maildir-storage
|
|
|
|
test_begin_subtest "Basic notmuch-show view in emacs without indentation"
|
|
maildir_storage_thread=$(notmuch search --output=threads id:20091117190054.GU3165@dottiness.seas.harvard.edu)
|
|
test_emacs "(let ((notmuch-show-indent-messages-width 0))
|
|
(notmuch-show \"$maildir_storage_thread\")
|
|
(test-output))"
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-maildir-storage-without-indentation
|
|
|
|
test_begin_subtest "Basic notmuch-show view in emacs with fourfold indentation"
|
|
maildir_storage_thread=$(notmuch search --output=threads id:20091117190054.GU3165@dottiness.seas.harvard.edu)
|
|
test_emacs "(let ((notmuch-show-indent-messages-width 4))
|
|
(notmuch-show \"$maildir_storage_thread\")
|
|
(test-output))"
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-maildir-storage-with-fourfold-indentation
|
|
|
|
test_begin_subtest "notmuch-show for message with invalid From"
|
|
add_message "[subject]=\"message-with-invalid-from\"" \
|
|
"[from]=\"\\\"Invalid \\\" From\\\" <test_suite@notmuchmail.org>\""
|
|
thread=$(notmuch search --output=threads subject:message-with-invalid-from)
|
|
test_emacs "(notmuch-show \"$thread\")
|
|
(test-output)"
|
|
cat <<EOF >EXPECTED
|
|
"Invalid " (2001-01-05) (inbox)
|
|
Subject: message-with-invalid-from
|
|
To: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
Date: Fri, 05 Jan 2001 15:43:57 +0000
|
|
|
|
This is just a test message (#1)
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Navigation of notmuch-search to thread view"
|
|
test_emacs '(notmuch-search "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(goto-char (point-min))
|
|
(re-search-forward "Working with Maildir")
|
|
(notmuch-search-show-thread)
|
|
(notmuch-test-wait)
|
|
(test-output)'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-maildir-storage
|
|
|
|
test_begin_subtest "Add tag from search view"
|
|
os_x_darwin_thread=$(notmuch search --output=threads id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com)
|
|
test_emacs "(notmuch-search \"$os_x_darwin_thread\")
|
|
(notmuch-test-wait)
|
|
(execute-kbd-macro \"+tag-from-search-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag-from-search-view unread)"
|
|
|
|
test_begin_subtest "Remove tag from search view"
|
|
test_emacs "(notmuch-search \"$os_x_darwin_thread\")
|
|
(notmuch-test-wait)
|
|
(execute-kbd-macro \"-tag-from-search-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)"
|
|
|
|
test_begin_subtest "Add tag from notmuch-show view"
|
|
test_emacs "(notmuch-show \"$os_x_darwin_thread\")
|
|
(execute-kbd-macro \"+tag-from-show-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag-from-show-view unread)"
|
|
|
|
test_begin_subtest "Remove tag from notmuch-show view"
|
|
test_emacs "(notmuch-show \"$os_x_darwin_thread\")
|
|
(execute-kbd-macro \"-tag-from-show-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)"
|
|
|
|
test_begin_subtest "Message with .. in Message-Id:"
|
|
add_message [id]=123..456@example '[subject]="Message with .. in Message-Id"'
|
|
test_emacs '(notmuch-search "id:\"123..456@example\"")
|
|
(notmuch-test-wait)
|
|
(execute-kbd-macro "+search-add")
|
|
(execute-kbd-macro "+search-remove")
|
|
(execute-kbd-macro "-search-remove")
|
|
(notmuch-show "id:\"123..456@example\"")
|
|
(notmuch-test-wait)
|
|
(execute-kbd-macro "+show-add")
|
|
(execute-kbd-macro "+show-remove")
|
|
(execute-kbd-macro "-show-remove")'
|
|
output=$(notmuch search 'id:"123..456@example"' | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2001-01-05 [1/1] Notmuch Test Suite; Message with .. in Message-Id (inbox search-add show-add)"
|
|
|
|
test_begin_subtest "Message with quote in Message-Id:"
|
|
add_message '[id]="\"quote\"@example"' '[subject]="Message with quote in Message-Id"'
|
|
test_emacs '(notmuch-search "subject:\"Message with quote\"")
|
|
(notmuch-test-wait)
|
|
(execute-kbd-macro "+search-add")
|
|
(notmuch-search-show-thread)
|
|
(notmuch-test-wait)
|
|
(execute-kbd-macro "+show-add")'
|
|
output=$(notmuch search 'id:"""quote""@example"' | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2001-01-05 [1/1] Notmuch Test Suite; Message with quote in Message-Id (inbox search-add show-add)"
|
|
|
|
test_begin_subtest "Sending a message via (fake) SMTP"
|
|
emacs_deliver_message \
|
|
'Testing message sent via SMTP' \
|
|
'This is a test that messages are sent via SMTP' \
|
|
'(message-goto-to)
|
|
(kill-whole-line)
|
|
(insert "To: user@example.com\n")'
|
|
sed \
|
|
-e s',^User-Agent: Notmuch/.* Emacs/.*,User-Agent: Notmuch/XXX Emacs/XXX,' \
|
|
-e s',^Message-ID: <.*>$,Message-ID: <XXX>,' < sent_message >OUTPUT
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: user@example.com
|
|
Subject: Testing message sent via SMTP
|
|
Date: 01 Jan 2000 12:00:00 -0000
|
|
User-Agent: Notmuch/XXX Emacs/XXX
|
|
Message-ID: <XXX>
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=us-ascii
|
|
|
|
This is a test that messages are sent via SMTP
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Verify that sent messages are saved/searchable (via FCC)"
|
|
notmuch new > /dev/null
|
|
output=$(notmuch search 'subject:"testing message sent via SMTP"' | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2000-01-01 [1/1] Notmuch Test Suite; Testing message sent via SMTP (inbox)"
|
|
|
|
test_begin_subtest "notmuch-fcc-dirs set to nil"
|
|
test_emacs "(let ((notmuch-fcc-dirs nil))
|
|
(notmuch-mua-mail)
|
|
(test-output))"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To:
|
|
Subject:
|
|
--text follows this line--
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
# Make another FCC maildir specific for the next test
|
|
mkdir -p mail/sent-string/cur
|
|
mkdir -p mail/sent-string/new
|
|
mkdir -p mail/sent-string/tmp
|
|
|
|
test_begin_subtest "notmuch-fcc-dirs set to a string"
|
|
test_emacs "(let ((notmuch-fcc-dirs \"sent-string\"))
|
|
(notmuch-mua-mail)
|
|
(test-output))"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To:
|
|
Subject:
|
|
Fcc: ${MAIL_DIR}/sent-string
|
|
--text follows this line--
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
# Make more FCC maildirs specific for the next test
|
|
mkdir -p mail/sent-list-match/cur
|
|
mkdir -p mail/sent-list-match/new
|
|
mkdir -p mail/sent-list-match/tmp
|
|
mkdir -p mail/failure/cur
|
|
mkdir -p mail/failure/new
|
|
mkdir -p mail/failure/tmp
|
|
|
|
test_begin_subtest "notmuch-fcc-dirs set to a list (with match)"
|
|
test_emacs "(let ((notmuch-fcc-dirs
|
|
'((\"notmuchmail.org\" . \"sent-list-match\")
|
|
(\".*\" . \"failure\"))))
|
|
(notmuch-mua-mail)
|
|
(test-output))"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To:
|
|
Subject:
|
|
Fcc: ${MAIL_DIR}/sent-list-match
|
|
--text follows this line--
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
# Make another FCC maildir specific for the next test
|
|
mkdir -p mail/sent-list-catch-all/cur
|
|
mkdir -p mail/sent-list-catch-all/new
|
|
mkdir -p mail/sent-list-catch-all/tmp
|
|
|
|
test_begin_subtest "notmuch-fcc-dirs set to a list (catch-all)"
|
|
test_emacs "(let ((notmuch-fcc-dirs
|
|
'((\"example.com\" . \"failure\")
|
|
(\".*\" . \"sent-list-catch-all\"))))
|
|
(notmuch-mua-mail)
|
|
(test-output))"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To:
|
|
Subject:
|
|
Fcc: ${MAIL_DIR}/sent-list-catch-all
|
|
--text follows this line--
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "notmuch-fcc-dirs set to a list (no match)"
|
|
test_emacs "(let ((notmuch-fcc-dirs
|
|
'((\"example.com\" . \"failure\")
|
|
(\"nomatchhere.net\" . \"failure\"))))
|
|
(notmuch-mua-mail)
|
|
(test-output))"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To:
|
|
Subject:
|
|
--text follows this line--
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Reply within emacs"
|
|
test_emacs '(notmuch-search "subject:\"testing message sent via SMTP\"")
|
|
(notmuch-test-wait)
|
|
(notmuch-search-reply-to-thread)
|
|
(test-output)'
|
|
sed -i -e 's/^In-Reply-To: <.*>$/In-Reply-To: <XXX>/' OUTPUT
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: user@example.com
|
|
Subject: Re: Testing message sent via SMTP
|
|
In-Reply-To: <XXX>
|
|
Fcc: ${MAIL_DIR}/sent
|
|
--text follows this line--
|
|
Notmuch Test Suite <test_suite@notmuchmail.org> writes:
|
|
|
|
> This is a test that messages are sent via SMTP
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Reply from alternate address within emacs"
|
|
test_subtest_known_broken
|
|
add_message '[from]="Sender <sender@example.com>"' \
|
|
[to]=test_suite_other@notmuchmail.org
|
|
|
|
test_emacs "(notmuch-search \"id:\\\"${gen_msg_id}\\\"\")
|
|
(notmuch-test-wait)
|
|
(notmuch-search-reply-to-thread)
|
|
(test-output)"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite_other@notmuchmail.org>
|
|
To: Sender <sender@example.com>
|
|
Subject: Re: ${test_subtest_name}
|
|
In-Reply-To: <${gen_msg_id}>
|
|
Fcc: ${MAIL_DIR}/sent
|
|
--text follows this line--
|
|
Sender <sender@example.com> writes:
|
|
|
|
> This is just a test message (#${gen_msg_cnt})
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Reply from address in named group list within emacs"
|
|
add_message '[from]="Sender <sender@example.com>"' \
|
|
'[to]=group:test_suite@notmuchmail.org,someone@example.com\;' \
|
|
[cc]=test_suite_other@notmuchmail.org
|
|
|
|
test_emacs "(notmuch-search \"id:\\\"${gen_msg_id}\\\"\")
|
|
(notmuch-test-wait)
|
|
(notmuch-search-reply-to-thread)
|
|
(test-output)"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: Sender <sender@example.com>, someone@example.com
|
|
Subject: Re: ${test_subtest_name}
|
|
In-Reply-To: <${gen_msg_id}>
|
|
Fcc: ${MAIL_DIR}/sent
|
|
--text follows this line--
|
|
Sender <sender@example.com> writes:
|
|
|
|
> This is just a test message (#${gen_msg_cnt})
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Reply within emacs to a multipart/mixed message"
|
|
test_emacs '(notmuch-show "id:20091118002059.067214ed@hikari")
|
|
(notmuch-show-reply)
|
|
(test-output)'
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: Adrian Perez de Castro <aperez@igalia.com>, notmuch@notmuchmail.org
|
|
Subject: Re: [notmuch] Introducing myself
|
|
In-Reply-To: <20091118002059.067214ed@hikari>
|
|
Fcc: ${MAIL_DIR}/sent
|
|
--text follows this line--
|
|
Adrian Perez de Castro <aperez@igalia.com> writes:
|
|
|
|
> Hello to all,
|
|
>
|
|
> I have just heard about Not Much today in some random Linux-related news
|
|
> site (LWN?), my name is Adrian Perez and I work as systems administrator
|
|
> (although I can do some code as well :P). I have always thought that the
|
|
> ideas behind Sup were great, but after some time using it, I got tired of
|
|
> the oddities that it has. I also do not like doing things like having to
|
|
> install Ruby just for reading and sorting mails. Some time ago I thought
|
|
> about doing something like Not Much and in fact I played a bit with the
|
|
> Python+Xapian and the Python+Whoosh combinations, because I find relaxing
|
|
> to code things in Python when I am not working and also it is installed
|
|
> by default on most distribution. I got to have some mailboxes indexed and
|
|
> basic searching working a couple of months ago. Lately I have been very
|
|
> busy and had no time for coding, and them... boom! Not Much appears -- and
|
|
> it is almost exactly what I was trying to do, but faster. I have been
|
|
> playing a bit with Not Much today, and I think it has potential.
|
|
>
|
|
> Also, I would like to share one idea I had in mind, that you might find
|
|
> interesting: One thing I have found very annoying is having to re-tag my
|
|
> mail when the indexes get b0rked (it happened a couple of times to me while
|
|
> using Sup), so I was planning to mails as read/unread and adding the tags
|
|
> not just to the index, but to the mail text itself, e.g. by adding a
|
|
> "X-Tags" header field or by reusing the "Keywords" one. This way, the index
|
|
> could be totally recreated by re-reading the mail directories, and this
|
|
> would also allow to a tools like OfflineIMAP [1] to get the mails into a
|
|
> local maildir, tagging and indexing the mails with the e-mail reader and
|
|
> then syncing back the messages with the "X-Tags" header to the IMAP server.
|
|
> This would allow to use the mail reader from a different computer and still
|
|
> have everything tagged finely.
|
|
>
|
|
> Best regards,
|
|
>
|
|
>
|
|
> ---
|
|
> [1] http://software.complete.org/software/projects/show/offlineimap
|
|
>
|
|
> --
|
|
> Adrian Perez de Castro <aperez@igalia.com>
|
|
> Igalia - Free Software Engineering
|
|
> _______________________________________________
|
|
> notmuch mailing list
|
|
> notmuch@notmuchmail.org
|
|
> http://notmuchmail.org/mailman/listinfo/notmuch
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Reply within emacs to a multipart/alternative message"
|
|
test_emacs '(notmuch-show "id:cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com")
|
|
(notmuch-show-reply)
|
|
(test-output)'
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: Alex Botero-Lowry <alex.boterolowry@gmail.com>, notmuch@notmuchmail.org
|
|
Subject: Re: [notmuch] preliminary FreeBSD support
|
|
In-Reply-To: <cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com>
|
|
Fcc: ${MAIL_DIR}/sent
|
|
--text follows this line--
|
|
Alex Botero-Lowry <alex.boterolowry@gmail.com> writes:
|
|
|
|
> I saw the announcement this morning, and was very excited, as I had been
|
|
> hoping sup would be turned into a library,
|
|
> since I like the concept more than the UI (I'd rather an emacs interface).
|
|
>
|
|
> I did a preliminary compile which worked out fine, but
|
|
> sysconf(_SC_SC_GETPW_R_SIZE_MAX) returns -1 on
|
|
> FreeBSD, so notmuch_config_open segfaulted.
|
|
>
|
|
> Attached is a patch that supplies a default buffer size of 64 in cases where
|
|
> -1 is returned.
|
|
>
|
|
> http://www.opengroup.org/austin/docs/austin_328.txt - seems to indicate this
|
|
> is acceptable behavior,
|
|
> and http://mail-index.netbsd.org/pkgsrc-bugs/2006/06/07/msg016808.htmlspecifically
|
|
> uses 64 as the
|
|
> buffer size.
|
|
> _______________________________________________
|
|
> notmuch mailing list
|
|
> notmuch@notmuchmail.org
|
|
> http://notmuchmail.org/mailman/listinfo/notmuch
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Quote MML tags in reply"
|
|
message_id='test-emacs-mml-quoting@message.id'
|
|
add_message [id]="$message_id" \
|
|
"[subject]='$test_subtest_name'" \
|
|
'[body]="<#part disposition=inline>"'
|
|
test_emacs "(notmuch-show \"id:$message_id\")
|
|
(notmuch-show-reply)
|
|
(test-output)"
|
|
cat <<EOF >EXPECTED
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To:
|
|
Subject: Re: Quote MML tags in reply
|
|
In-Reply-To: <test-emacs-mml-quoting@message.id>
|
|
Fcc: ${MAIL_DIR}/sent
|
|
--text follows this line--
|
|
Notmuch Test Suite <test_suite@notmuchmail.org> writes:
|
|
|
|
> <#!part disposition=inline>
|
|
EOF
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Save attachment from within emacs using notmuch-show-save-attachments"
|
|
# save as archive to test that Emacs does not re-compress .gz
|
|
test_emacs '(let ((standard-input "\"attachment1.gz\""))
|
|
(notmuch-show "id:cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com")
|
|
(notmuch-show-save-attachments))'
|
|
test_expect_equal_file attachment1.gz "$EXPECTED/attachment"
|
|
|
|
test_begin_subtest "Save attachment from within emacs using notmuch-show-save-part"
|
|
# save as archive to test that Emacs does not re-compress .gz
|
|
test_emacs '(let ((standard-input "\"attachment2.gz\""))
|
|
(notmuch-show-save-part "id:cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com" 5))'
|
|
test_expect_equal_file attachment2.gz "$EXPECTED/attachment"
|
|
|
|
test_begin_subtest "View raw message within emacs"
|
|
test_emacs '(notmuch-show "id:cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com")
|
|
(notmuch-show-view-raw-message)
|
|
(test-output)'
|
|
test_expect_equal_file OUTPUT $EXPECTED/raw-message-cf0c4d-52ad0a
|
|
|
|
test_begin_subtest "Hiding/showing signature in notmuch-show view"
|
|
maildir_storage_thread=$(notmuch search --output=threads id:20091117190054.GU3165@dottiness.seas.harvard.edu)
|
|
test_emacs "(notmuch-show \"$maildir_storage_thread\")
|
|
(search-forward \"Click/Enter to show.\")
|
|
(button-activate (button-at (point)))
|
|
(search-backward \"Click/Enter to hide.\")
|
|
(button-activate (button-at (point)))
|
|
(test-output)"
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-maildir-storage
|
|
|
|
test_begin_subtest "Detection and hiding of top-post quoting of message"
|
|
add_message '[subject]="The problem with top-posting"' \
|
|
[id]=top-post-target \
|
|
'[body]="A: Because it messes up the order in which people normally read text.
|
|
Q: Why is top-posting such a bad thing?
|
|
A: Top-posting.
|
|
Q: What is the most annoying thing in e-mail?"'
|
|
add_message '[from]="Top Poster <top@poster.com>"' \
|
|
[in-reply-to]=top-post-target \
|
|
[references]=top-post-target \
|
|
'[subject]="Re: The problem with top-posting"' \
|
|
'[body]="Thanks for the advice! I will be sure to put it to good use.
|
|
|
|
-Top Poster
|
|
|
|
----- Original Message -----
|
|
From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: Notmuch Test Suite <test_suite@notmuchmai.org>
|
|
Sent: Fri, 05 Jan 2001 15:43:57 +0000
|
|
Subject: The problem with top-posting
|
|
|
|
Q: Why is top-posting such a bad thing?
|
|
A: Top-posting.
|
|
Q: What is the most annoying thing in e-mail?"'
|
|
test_emacs "(notmuch-show \"top-posting\")
|
|
(test-visible-output)"
|
|
echo "Notmuch Test Suite <test_suite@notmuchmail.org> (2001-01-05) (inbox)
|
|
Subject: The problem with top-posting
|
|
To: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
Date: Fri, 05 Jan 2001 15:43:57 +0000
|
|
|
|
A: Because it messes up the order in which people normally read text.
|
|
Q: Why is top-posting such a bad thing?
|
|
A: Top-posting.
|
|
Q: What is the most annoying thing in e-mail?
|
|
Top Poster <top@poster.com> (2001-01-05) (inbox unread)
|
|
Subject: Re: The problem with top-posting
|
|
To: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
Date: Fri, 05 Jan 2001 15:43:57 +0000
|
|
|
|
Thanks for the advice! I will be sure to put it to good use.
|
|
|
|
-Top Poster
|
|
|
|
[ 9-line hidden original message. Click/Enter to show. ]" > EXPECTED
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Hiding message in notmuch-show view"
|
|
test_emacs '(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com")
|
|
(notmuch-show-toggle-message)
|
|
(test-visible-output)'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-with-hidden-messages
|
|
|
|
test_begin_subtest "Hiding message with visible citation in notmuch-show view"
|
|
test_emacs '(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com")
|
|
(search-forward "Click/Enter to show.")
|
|
(button-activate (button-at (point)))
|
|
(notmuch-show-toggle-message)
|
|
(test-visible-output)'
|
|
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-with-hidden-messages
|
|
|
|
test_begin_subtest "Stashing in notmuch-show"
|
|
add_message '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' \
|
|
'[from]="Some One <someone@somewhere.org>"' \
|
|
'[to]="Some One Else <notsomeone@somewhere.org>"' \
|
|
'[cc]="Notmuch <notmuch@notmuchmail.org>"' \
|
|
'[subject]="Stash my stashables"' \
|
|
'[id]="bought"' \
|
|
'[body]="Unable to stash body. Where did you get it in the first place?!?"'
|
|
notmuch tag +stashtest id:${gen_msg_id}
|
|
test_emacs '(notmuch-show "id:\"bought\"")
|
|
(notmuch-show-stash-date)
|
|
(notmuch-show-stash-from)
|
|
(notmuch-show-stash-to)
|
|
(notmuch-show-stash-cc)
|
|
(notmuch-show-stash-subject)
|
|
(notmuch-show-stash-message-id)
|
|
(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*"))
|
|
(dotimes (i 12)
|
|
(yank)
|
|
(insert "\n")
|
|
(rotate-yank-pointer 1))
|
|
(reverse-region (point-min) (point-max))
|
|
(test-output)'
|
|
cat <<EOF >EXPECTED
|
|
Sat, 01 Jan 2000 12:00:00 +0000
|
|
Some One <someone@somewhere.org>
|
|
Some One Else <notsomeone@somewhere.org>
|
|
Notmuch <notmuch@notmuchmail.org>
|
|
Stash my stashables
|
|
id:"bought"
|
|
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
|
|
|
|
test_begin_subtest "Stashing in notmuch-search"
|
|
test_emacs '(notmuch-search "id:\"bought\"")
|
|
(notmuch-test-wait)
|
|
(notmuch-search-stash-thread-id)
|
|
(switch-to-buffer
|
|
(generate-new-buffer "*test-stashing*"))
|
|
(yank)
|
|
(test-output)'
|
|
sed -i -e 's/^thread:.*$/thread:XXX/' OUTPUT
|
|
test_expect_equal "$(cat OUTPUT)" "thread:XXX"
|
|
|
|
test_begin_subtest 'notmuch-show-advance-and-archive with invisible signature'
|
|
message1='id:20091118010116.GC25380@dottiness.seas.harvard.edu'
|
|
message2='id:1258491078-29658-1-git-send-email-dottedmag@dottedmag.net'
|
|
test_emacs "(notmuch-search \"$message1 or $message2\")
|
|
(notmuch-test-wait)
|
|
(notmuch-search-show-thread)
|
|
(goto-char (point-max))
|
|
(redisplay)
|
|
(notmuch-show-advance-and-archive)
|
|
(test-output)"
|
|
test_emacs "(notmuch-show \"$message2\")
|
|
(test-output \"EXPECTED\")"
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Refresh show buffer"
|
|
test_emacs '(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com")
|
|
(test-visible-output "EXPECTED")
|
|
(notmuch-show-refresh-view)
|
|
(test-visible-output)'
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Refresh modified show buffer"
|
|
test_emacs '(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com")
|
|
(notmuch-show-toggle-message)
|
|
(notmuch-show-next-message)
|
|
(notmuch-show-toggle-message)
|
|
(test-visible-output "EXPECTED")
|
|
(notmuch-show-refresh-view)
|
|
(test-visible-output)'
|
|
test_expect_equal_file OUTPUT EXPECTED
|
|
|
|
test_begin_subtest "Do not call notmuch for non-inlinable application/mpeg parts"
|
|
id='message-with-application/mpeg-attachment@notmuchmail.org'
|
|
emacs_deliver_message \
|
|
'Message with application/mpeg attachment' \
|
|
'' \
|
|
"(message-goto-eoh)
|
|
(insert \"Message-ID: <$id>\n\")
|
|
(message-goto-body)
|
|
(mml-insert-part \"application/mpeg\")
|
|
(insert \"a fake mp3 file\")"
|
|
notmuch_counter_reset
|
|
test_emacs "(let ((notmuch-command \"$notmuch_counter_command\"))
|
|
(notmuch-show \"id:$id\"))"
|
|
test_expect_equal $(notmuch_counter_value) 1
|
|
|
|
test_begin_subtest "Do not call notmuch for non-inlinable audio/mpeg parts"
|
|
id='message-with-audio/mpeg-attachment@notmuchmail.org'
|
|
emacs_deliver_message \
|
|
'Message with audio/mpeg attachment' \
|
|
'' \
|
|
"(message-goto-eoh)
|
|
(insert \"Message-ID: <$id>\n\")
|
|
(message-goto-body)
|
|
(mml-insert-part \"audio/mpeg\")
|
|
(insert \"a fake mp3 file\")"
|
|
notmuch_counter_reset
|
|
test_emacs "(let ((notmuch-command \"$notmuch_counter_command\"))
|
|
(notmuch-show \"id:$id\"))"
|
|
test_expect_equal $(notmuch_counter_value) 1
|
|
|
|
test_begin_subtest "notmuch-hello-mode hook is called"
|
|
counter=$(test_emacs \
|
|
'(let ((notmuch-hello-mode-hook-counter 0))
|
|
(kill-buffer "*notmuch-hello*")
|
|
(notmuch-hello)
|
|
notmuch-hello-mode-hook-counter)'
|
|
)
|
|
test_expect_equal "$counter" 1
|
|
|
|
test_begin_subtest "notmuch-hello-mode hook is not called on updates"
|
|
counter=$(test_emacs \
|
|
'(let ((notmuch-hello-mode-hook-counter 0))
|
|
(kill-buffer "*notmuch-hello*")
|
|
(notmuch-hello)
|
|
(notmuch-hello-update)
|
|
notmuch-hello-mode-hook-counter)'
|
|
)
|
|
test_expect_equal "$counter" 1
|
|
|
|
test_begin_subtest "notmuch-hello-refresh hook is called"
|
|
counter=$(test_emacs \
|
|
'(let ((notmuch-hello-refresh-hook-counter 0))
|
|
(kill-buffer "*notmuch-hello*")
|
|
(notmuch-hello)
|
|
notmuch-hello-refresh-hook-counter)'
|
|
)
|
|
test_expect_equal "$counter" 1
|
|
|
|
test_begin_subtest "notmuch-hello-refresh hook is called on updates"
|
|
counter=$(test_emacs \
|
|
'(let ((notmuch-hello-refresh-hook-counter 0))
|
|
(kill-buffer "*notmuch-hello*")
|
|
(notmuch-hello)
|
|
(notmuch-hello-update)
|
|
notmuch-hello-refresh-hook-counter)'
|
|
)
|
|
test_expect_equal "$counter" 2
|
|
|
|
test_done
|