(change-log-font-lock-keywords): Match names

more exactly for the case that font-lock-constant-face is
underlined.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4eac89b166..5598ff181f3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-09-19  Gerd Moellmann  <gerd@gnu.org>
+
+        * add-log.el (change-log-font-lock-keywords): Match names
+        more exactly for the case that font-lock-constant-face is
+        underlined.
+
 2000-09-19  Andre Spiegel  <spiegel@gnu.org>
 
         * vc.el (vc-revert-buffer): Set vc-checkout-time correctly.
@@ -15,7 +21,7 @@
         * gnus/nnultimate.el, gnus/nnwarchive.el, gnus/qp.el,
         * gnus/rfc1843.el, gnus/rfc2045.el, gnus/rfc2047.el,
         * gnus/rfc2104.el, gnus/rfc2231.el, gnus/time-date.el,
-        * gnus/utf7.el, gnsu/uudecode.el, gnus/webmail.el: New files.
+        * gnus/utf7.el, gnus/uudecode.el, gnus/webmail.el: New files.
 
         * startup.el (fancy-splash-text): New variable.
         (fancy-splash-delay, fancy-splash-image): New user-options.
diff --git a/lisp/add-log.el b/lisp/add-log.el
index f2b93b8c047..0d253614945 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -152,7 +152,7 @@ Note: The search is conducted only within 10%, at the beginning of the file."
     ("^\\sw.........[0-9:+ ]*"
      (0 font-lock-string-face)
      ;; Name and e-mail; some people put e-mail in parens, not angles.
-     ("\\([^<(]+\\)[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
+     ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
       (1 font-lock-constant-face)
       (2 font-lock-variable-name-face)))
     ;;