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

(mail-strip-quoted-names): `"' is not special inside an RFC 822 comment.

parent d614dd91
......@@ -75,9 +75,10 @@ Return a modified address list."
(match-end 0))))
;; Detect nested comments.
(if (string-match "[ \t]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*(" address)
(if (string-match "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*(" address)
;; Strip nested comments.
(save-excursion
(debug)
(set-buffer (get-buffer-create " *temp*"))
(erase-buffer)
(insert address)
......@@ -98,7 +99,7 @@ Return a modified address list."
(while (setq pos (string-match
;; This doesn't hack rfc822 nested comments
;; `(xyzzy (foo) whinge)' properly. Big deal.
"[ \t]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)"
"[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)"
address))
(setq address
(mail-string-delete address
......
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