Code moved to the new script make-changelog-diff, called from here.

admin/ChangeLog

@@ -1,3 +1,9 @@
+2003-02-10  Francesco Potort,Al(B  <pot@gnu.org>
+
+	* make-changelog-diff: New script, code stolen from make-announcement.
+
+	* make-announcement: Use make-changelog-diff.
+
 2003-01-20  Francesco Potort,Al(B  <pot@gnu.org>
 
 	* make-tarball.txt: Step-by-step instructions for making a tarball.

admin/make-announcement

@@ -61,19 +61,6 @@ Changes since $OLD
 
 EOF
 
-cvs -q diff -b -r $oldtag -r $newtag $(find -name ChangeLog|sort) |
-    sed -n -e 's/^=\+/======/p' -e 's/^> //p' -e 's/^diff.*//p' \
-	-e 's/^RCS file: .cvsroot.emacs.emacs.\(.*\),v/\1/p' |
-    sed -n -e "/^======$/ {
-                N
-                N
-                h
-                d
-               }
-               H
-               s/.*//
-               x
-               s/^\n//
-	       p"
+make-changelog-diff $oldtag $newtag
 
 echo " announcement created in $outfile" >&2