diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-15 18:00:08 -0700 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-15 18:00:16 -0700 |
| commit | ab8a96977f6fc91d9a6ba4fe8a2a959c0525e339 (patch) | |
| tree | 1459a869b914210bba0b4e5800c3fc8a5b9ee109 /test | |
| parent | 1ee0192b792124663a0a40a729dd83c047d21535 (diff) | |
| download | emacs-ab8a96977f6fc91d9a6ba4fe8a2a959c0525e339.tar.gz | |
Reimplement the `fill-flowed' function to respect space stuffing
* lisp/mail/flow-fill.el (fill-flowed): Reimplement the function
to respect space-stuffing (bug#17190).
* test/lisp/mail/flow-fill-tests.el
(fill-flow-tests-fill-flowed-stuffed): New test.
(fill-flow-tests-fill-flowed-decode): Rename the test so that it
actually runs.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/mail/flow-fill-tests.el | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/test/lisp/mail/flow-fill-tests.el b/test/lisp/mail/flow-fill-tests.el index a05950bb70a..2dd516b91d1 100644 --- a/test/lisp/mail/flow-fill-tests.el +++ b/test/lisp/mail/flow-fill-tests.el @@ -24,7 +24,7 @@ (require 'ert) (require 'flow-fill) -(ert-deftest fill-flow-tests-fill-flowed-encode () +(ert-deftest fill-flow-tests-fill-flowed-decode () (let ((input (concat "> Thou villainous ill-breeding spongy dizzy-eyed \n" @@ -53,6 +53,7 @@ (with-temp-buffer (insert input) (fill-flowed) + (message "foo") (should (equal (buffer-string) output))))) (ert-deftest fill-flow-tests-fill-flowed-encode () @@ -88,5 +89,18 @@ (fill-flowed-encode) (should (equal (buffer-string) output))))) +(ert-deftest fill-flow-tests-fill-flowed-stuffed () + (let ((input + (concat + " > From space-stuffed with a \n" + "continuation.\n")) + (output + "> From space-stuffed with a continuation.\n") + (fill-flowed-display-column 69)) + (with-temp-buffer + (insert input) + (fill-flowed) + (should (equal (buffer-string) output))))) + (provide 'flow-fill-tests) ;;; flow-fill-tests.el ends here |