diff --git a/doc/texi2pod.pl b/doc/texi2pod.pl
index 6702d7a5427fac1c1ca060b1082ca7dced2782ff..bf333b891bb386d619c49c30f62fb2d040d0cf22 100755
--- a/doc/texi2pod.pl
+++ b/doc/texi2pod.pl
@@ -365,7 +365,7 @@ sub postprocess
     # @uref can take one, two, or three arguments, with different
     # semantics each time.  @url and @email are just like @uref with
     # one argument, for our purposes.
-    s/\@(?:uref|url|email)\{([^\},]*)\}/&lt;B<$1>&gt;/g;
+    s/\@(?:uref|url|email)\{([^\},]*),?[^\}]*\}/&lt;B<$1>&gt;/g;
     s/\@uref\{([^\},]*),([^\},]*)\}/$2 (C<$1>)/g;
     s/\@uref\{([^\},]*),([^\},]*),([^\},]*)\}/$3/g;