Initial registration.

diff --git a/v7/src/imail/update-changelog.sh b/v7/src/imail/update-changelog.sh
new file mode 100755 (executable)
index 0000000..988abd2
--- /dev/null
+++ b/v7/src/imail/update-changelog.sh
@@ -0,0 +1,9 @@
+#!/bin/sh
+scheme -large <<***EOF***
+(load-option 'RCS)
+(rcs-directory-log "."
+                  `((CHANGELOG? #t)
+                    (CHANGELOG-MAP
+                     ("zurich.ai.mit.edu"
+                      ("cph" "Chris Hanson")))))
+***EOF***