Remove outer single-quotes from the mailbox part. Allow for multiple
sets of nested single and double quotes.
Add more tests.
---
emacs/notmuch-show.el | 24 +++++++++++++++++-------
test/emacs-address-cleaning.el | 8 ++++++++
2 files changed, 25 insertions(+), 7 deletions(-)
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 84ac624..7bfbda9 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -315,15 +315,25 @@ unchanged ADDRESS if parsing fails."
(t
(setq p-address address)))
- ;; 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)))
-
+ ;; Remove elements of the mailbox part that are not relevant for
+ ;; display, even if they are required during transport:
+ ;;
;; Backslashes.
- (setq p-name (replace-regexp-in-string "\\\\" "" p-name)))
+ (setq p-name (replace-regexp-in-string "\\\\" "" p-name))
+
+ ;; Outer single and double quotes, which might be nested.
+ (loop
+ with start-of-loop
+ do (setq start-of-loop p-name)
+
+ when (string-match "^\"\\(.*\\)\"$" p-name)
+ do (setq p-name (match-string 1 p-name))
+
+ when (string-match "^'\\(.*\\)'$" p-name)
+ do (setq p-name (match-string 1 p-name))
+
+ until (string= start-of-loop p-name)))
;; If the address is '[email protected] <[email protected]>' then show just
;; '[email protected]'.
diff --git a/test/emacs-address-cleaning.el b/test/emacs-address-cleaning.el
index 3b0b109..8423245 100644
--- a/test/emacs-address-cleaning.el
+++ b/test/emacs-address-cleaning.el
@@ -21,11 +21,19 @@
"foo (at home) <[email protected]>"
"foo [at home] <[email protected]>"
"Foo Bar"
+ "'Foo Bar' <[email protected]>"
+ "\"'Foo Bar'\" <[email protected]>"
+ "'\"Foo Bar\"' <[email protected]>"
+ "'\"'Foo Bar'\"' <[email protected]>"
"Fred Dibna \\[extraordinaire\\] <[email protected]>"))
(expected '("ДБ <[email protected]>"
"foo (at home) <[email protected]>"
"foo [at home] <[email protected]>"
"Foo Bar"
+ "Foo Bar <[email protected]>"
+ "Foo Bar <[email protected]>"
+ "Foo Bar <[email protected]>"
+ "Foo Bar <[email protected]>"
"Fred Dibna [extraordinaire] <[email protected]>"))
(output (mapcar #'notmuch-show-clean-address input)))
(notmuch-test-expect-equal output expected)))
--
1.7.8.3
_______________________________________________
notmuch mailing list
[email protected]
http://notmuchmail.org/mailman/listinfo/notmuch
