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") | |||
| 352 | ;; This is the default user-mail-address. On today's | 352 | ;; This is the default user-mail-address. On today's |
| 353 | ;; systems, it seems more likely to be wrong than right, | 353 | ;; systems, it seems more likely to be wrong than right, |
| 354 | ;; since most people don't run their own mail server. | 354 | ;; since most people don't run their own mail server. |
| 355 | (string-match (format "\\<%s@%s\\>" (user-login-name) | 355 | (string-match (format "\\<%s@%s\\>" |
| 356 | (system-name)) | 356 | (regexp-quote (user-login-name)) |
| 357 | (regexp-quote (system-name))) | ||
| 357 | from)) | 358 | from)) |
| 358 | (not (yes-or-no-p | 359 | (not (yes-or-no-p |
| 359 | (format "Is `%s' really your email address? " from))) | 360 | (format "Is `%s' really your email address? " from))) |