diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 7405f44e569a..53535521c944 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2007-02-16  Matthias Klose  <doko@debian.org>
+
+	* texi2pod.pl: Handle @subsubsection, ignore @anchor.
+
 2007-02-10  Hans-Peter Nilsson  <hp@axis.com>
 
 	* test_summary (configflags): Adjust for changes in the
diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl
index 2791cdd85f01..e7b983bd2d28 100755
--- a/contrib/texi2pod.pl
+++ b/contrib/texi2pod.pl
@@ -254,6 +254,8 @@ while(<$inf>) {
 	and $_ = "\n=head2 $1\n";
     /^\@subsection\s+(.+)$/
 	and $_ = "\n=head3 $1\n";
+    /^\@subsubsection\s+(.+)$/
+	and $_ = "\n=head4 $1\n";
 
     # Block command handlers:
     /^\@itemize(?:\s+(\@[a-z]+|\*|-))?/ and do {
@@ -400,6 +402,9 @@ sub postprocess
     s/\@gol//g;
     s/\@\*\s*\n?//g;
 
+    # Anchors are thrown away
+    s/\@anchor\{(?:[^\}]*)\}//g;
+
     # @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.