diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-05-26 09:14:53 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-05-26 09:14:53 -0700 |
| commit | fc6c27276c470a46cdce2a3f09e7968360b91584 (patch) | |
| tree | ea6782cda5c32d2b85117a8d7b8376062557a27c | |
| parent | 27b48e635a0abd153107846b834c24074b185815 (diff) | |
| download | emacs-fc6c27276c470a46cdce2a3f09e7968360b91584.tar.gz | |
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") ;; 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))) |