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

emacs: Another special case for `notmuch-show-clean-address'.

Browse source 
Remove backslashes.
This commit is contained in:
David Edmondson 2012-01-25 13:54:00 +00:00 committed by David Bremner
parent 50d65de394
commit cd03f21447
2 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
emacs/notmuch-show.el
View file

@ -315,11 +315,15 @@ unchanged ADDRESS if parsing fails."
(t
(setq p-address address)))
;; Remove outer double quotes. They might be required during
;; transport, but we don't need to see them.
(when (and p-name
(string-match "^\"\\(.*\\)\"$" p-name))
(setq p-name (match-string 1 p-name)))
;; Remove elements of the mailbox part that are not relevant for
;; display, even if they are required during transport.
(when p-name
;; Outer double quotes.
(when (string-match "^\"\\(.*\\)\"$" p-name)
(setq p-name (match-string 1 p-name)))
;; Backslashes.
(setq p-name (replace-regexp-in-string "\\\\" "" p-name)))
;; If the address is 'foo@bar.com <foo@bar.com>' then show just
;; 'foo@bar.com'.

6
test/emacs-address-cleaning.el
View file

@ -20,10 +20,12 @@
(let* ((input '("ДБ <db-uknot@stop.me.uk>"
"foo (at home) <foo@bar.com>"
"foo [at home] <foo@bar.com>"
"Foo Bar"))
"Foo Bar"
"Fred Dibna \\[extraordinaire\\] <fred@dibna.com>"))
(expected '("ДБ <db-uknot@stop.me.uk>"
"foo (at home) <foo@bar.com>"
"foo [at home] <foo@bar.com>"
"Foo Bar"))
"Foo Bar"
"Fred Dibna [extraordinaire] <fred@dibna.com>"))
(output (mapcar #'notmuch-show-clean-address input)))
(notmuch-test-expect-equal output expected)))