# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834950828 0
# Node ID b549210f6989ebf751554ef21cd569e2dc552bd7
# Parent  fb91eb76bead9a1b36ceffc51fa4783a9dbd7708
(mail-strip-quoted-names): `"' is not special inside an RFC 822 comment.

diff -r fb91eb76bead -r b549210f6989 lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Sun Jun 16 18:23:28 1996 +0000
+++ b/lisp/mail/mail-utils.el	Sun Jun 16 18:47:08 1996 +0000
@@ -75,9 +75,10 @@
 					      (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 @@
 	 (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