diff options
| author | Glenn Morris | 2011-05-26 09:14:53 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-05-26 09:14:53 -0700 |
| commit | fc6c27276c470a46cdce2a3f09e7968360b91584 (patch) | |
| tree | ea6782cda5c32d2b85117a8d7b8376062557a27c | |
| parent | 27b48e635a0abd153107846b834c24074b185815 (diff) | |
| download | emacs-fc6c27276c470a46cdce2a3f09e7968360b91584.tar.gz emacs-fc6c27276c470a46cdce2a3f09e7968360b91584.zip | |
Restrict regexp match in previous emacsbug.el change.
| -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))) |