Commit ab6f8978 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-strip-quoted-names): Don't delete angle brackets

when there's a colon inside them.
parent 3e18eecf
......@@ -160,7 +160,7 @@ Return a modified address list."
(mail-string-delete address
pos (match-end 0)))))
;; Retain only part of address in <> delims, if there is such a thing.
(while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)"
(while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,:]*>\\)"
address))
(let ((junk-beg (match-end 1))
(junk-end (match-beginning 2))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment