diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-12 14:57:51 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-12 14:59:41 +0200 |
| commit | 9978e88b31a59510a6d24b3ff740172700479f11 (patch) | |
| tree | a1733994121bf85031095c3d1d98116a3089f7a4 /test/lisp/gnus/message-tests.el | |
| parent | 20c6a516ecaa4ef5d4f9a8c9dd74ffb023236df4 (diff) | |
| download | emacs-9978e88b31a59510a6d24b3ff740172700479f11.tar.gz emacs-9978e88b31a59510a6d24b3ff740172700479f11.tar.bz2 emacs-9978e88b31a59510a6d24b3ff740172700479f11.zip | |
Remove repetitions from recipient addresses in Message
* lisp/gnus/message.el (message--alter-repeat-address): New function.
(message-get-reply-headers): Use it to remove repetitions on the
form "foo@bar.com" <foo@bar.com>.
Diffstat (limited to 'test/lisp/gnus/message-tests.el')
| -rw-r--r-- | test/lisp/gnus/message-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/lisp/gnus/message-tests.el b/test/lisp/gnus/message-tests.el index a95559775b6..27b8c10dc03 100644 --- a/test/lisp/gnus/message-tests.el +++ b/test/lisp/gnus/message-tests.el @@ -145,6 +145,15 @@ (setq recipients (list person1 person2 person3)) (should-not (message-all-epg-keys-available-p))))) +(ert-deftest message-alter-repeat-address () + (should (equal (message--alter-repeat-address + "Lars Ingebrigtsen <larsi@gnus.org>") + "Lars Ingebrigtsen <larsi@gnus.org>")) + + (should (equal (message--alter-repeat-address + "\"larsi@gnus.org\" <larsi@gnus.org>") + "larsi@gnus.org"))) + (provide 'message-mode-tests) ;;; message-mode-tests.el ends here |