diff options
| author | Karl Fogel <[email protected]> | 2007-06-16 01:25:25 +0000 |
|---|---|---|
| committer | Karl Fogel <[email protected]> | 2007-06-16 01:25:25 +0000 |
| commit | 8626551860829c877899e232e4281334900f4d89 (patch) | |
| tree | 1f0af74667afc732f2fe0a13045ed1067610eee1 | |
| parent | baef4cbec38e736b3dfd05aec00b783112103c5f (diff) | |
* thingatpt.el (thing-at-point-email-regexp): Don't require two chars
before the "@" in an email address. Andreas Roehler noticed this problem.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/thingatpt.el | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec8ca907ee..e808cf7593 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-06-16 Karl Fogel <[email protected]> + + * thingatpt.el (thing-at-point-email-regexp): Don't require two + chars before the "@" in an email address. Andreas Roehler noticed + this problem. + 2007-06-15 Karl Fogel <[email protected]> * thingatpt.el: Add support for email addresses (`email'). diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 0d57091fb0..416812dbbf 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -342,7 +342,7 @@ point." ;; Email addresses (defvar thing-at-point-email-regexp - "<?[-+_.~a-zA-Z][-+_.~:a-zA-Z0-9]+@[-.a-zA-Z0-9]+>?" + "<?[-+_.~a-zA-Z][-+_.~:a-zA-Z0-9]*@[-.a-zA-Z0-9]+>?" "A regular expression probably matching an email address. This does not match the real name portion, only the address, optionally with angle brackets.") |