diff options
| -rw-r--r-- | lisp/mail/emacsbug.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 7d39edd39cd..8b3bca74555 100644 --- 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))) |