[Emacs-diffs] Changes to emacs/lisp/vc-hg.el,v [EMACS_22_BASE]

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Dan Nicolaescu <dann>   08/01/07 06:06:28

Index: vc-hg.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.12.2.15
retrieving revision 1.12.2.16
diff -u -b -r1.12.2.15 -r1.12.2.16
--- vc-hg.el    7 Jan 2008 03:07:35 -0000       1.12.2.15
+++ vc-hg.el    7 Jan 2008 06:06:25 -0000       1.12.2.16
@@ -256,15 +256,18 @@
   (set (make-local-variable 'log-view-font-lock-keywords)
        (append
        log-view-font-lock-keywords
-       ;; Handle the case:
-       ;; user: address@hidden
-       '(("^user:[ \t]+\\(address@hidden)"
-          (1 'change-log-email))
+       '(
          ;; Handle the case:
          ;; user: FirstName LastName <address@hidden>
          ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\(address@hidden)[>)]"
           (1 'change-log-name)
           (2 'change-log-email))
+         ;; Handle the cases:
+         ;; user: address@hidden 
+         ;; and 
+         ;; user: foo
+         ("^user:[ \t]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)"
+          (1 'change-log-email))
          ("^date: \\(.+\\)" (1 'change-log-date))
          ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message))))))