Subject: Re: bug#7746: SERIOUS BUG: mail-strip-quoted-names bug causing unrmail to lose mail

From: Stefan Monnier <[email-masked]>
Date: Sun, 02 Jan 2011 22:36:55 -0500

> After some thought, I figured out why you your code doesn't work:
>   it turns "( \(  )" into "( \"

Hmm... not in my test:

       (let ((address "(sadffds \\( adf)") pos)
         (while (setq pos (string-match
                          ;; This doesn't hack rfc822 nested comments
                          ;;  `(xyzzy (foo) whinge)' properly.  Big deal.
                          "[ \t]*(\\([^()\\]\\|\\\\.\\|\\\\\n\\)*)"
                          address))
           (setq address (replace-match "" nil nil address 0)))
         address)

returns "".

        Stefan