debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 10:58:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

test: extend test of attachment warnings

Browse source 
Check that attachment warnings are not raised when the word
"attach" only occurs in a forwarded message.
This commit is contained in:
Örjan Ekeberg 2019-12-13 00:35:36 +01:00 committed by David Bremner
parent 1d9ec88d87
commit 757ed001aa
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/emacs-attachment-warnings.el
View file

@ -36,6 +36,12 @@ Return `t' if the message would be sent, otherwise `nil'"
;; fontification properties. For fontification to happen we need to
;; allow some time for redisplay.
(sit-for 0.01)))
(t . (lambda ()
;; "attach" is only mentioned in a forwarded message.
(insert "Hello\n")
(insert "<#mml type=message/rfc822 disposition=inline>\n")
(insert "X-Has-Attach:\n")
(insert "<#/mml>\n")))
;; These should not be okay:
(nil . (lambda () (insert "Here is an attachment:\n")))
@ -49,6 +55,12 @@ Return `t' if the message would be sent, otherwise `nil'"
;; looking at fontification properties. For fontification
;; to happen we need to allow some time for redisplay.
(sit-for 0.01)))
(nil . (lambda ()
;; "attachment" is mentioned before a forwarded message.
(insert "I also attach something.\n")
(insert "<#mml type=message/rfc822 disposition=inline>\n")
(insert "X-Has-Attach:\n")
(insert "<#/mml>\n")))
))
(defun notmuch-test-attachment-warning-1 ()