Restrict regexp match in previous emacsbug.el change.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 7d39edd39cde54019516639ce867386a8ccf234a..8b3bca7455592980e8bfb8a5bfa39a1471496e3d 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -352,8 +352,9 @@ usually do not have translators to read other languages for them.\n\n")
                   ;; This is the default user-mail-address.  On today's
                   ;; systems, it seems more likely to be wrong than right,
                   ;; since most people don't run their own mail server.
-                  (string-match (format "\\<%s@%s\\>" (user-login-name)
-                                        (system-name))
+                  (string-match (format "\\<%s@%s\\>"
+                                        (regexp-quote (user-login-name))
+                                        (regexp-quote (system-name)))
                                 from))
               (not (yes-or-no-p
                     (format "Is `%s' really your email address? " from)))