* config/announce-gen (print_changelog_deltas): Neutralize "<#" as

"<#" to avoid magic from Gnus when posting parts of this script.

diff --git a/ChangeLog b/ChangeLog
index 14409cc744386802285cfb2fc545cbfe7003f684..a7b160a562797a43a6dbe97e3f2a177d27901235 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-26  Akim Demaille  <akim@epita.fr>
+
+       * config/announce-gen (print_changelog_deltas): Neutralize "<#" as
+       "<\#" to avoid magic from Gnus when posting parts of this script.
+
 2003-08-26  Akim Demaille  <akim@epita.fr>
 
        * data/lalr1.cc (Parser::report_syntax_error_): New, extracted from

diff --git a/config/announce-gen b/config/announce-gen
index 7b8095aef53ab558d429897478afb96a8f337623..01e4047f75f602bab3ac81729fda3f6d621724d1 100755 (executable)
--- a/config/announce-gen
+++ b/config/announce-gen
@@ -226,11 +226,13 @@ sub print_changelog_deltas ($$)
   $fail
     and exit 1;
 
+  # The markup is escaped as <\# so that when this script is sent by
+  # mail (or part of a diff), Gnus is not triggered.
   print <<EOF;
 
 Subject: $my_distdir released
 
-<#secure method=pgpmime mode=sign>
+<\#secure method=pgpmime mode=sign>
 
 FIXME: put comments here
 
@@ -263,8 +265,10 @@ EOF
 
   print "\nHere are the MD5 and SHA1 signatures:\n";
   print "\n";
-  print "<#part type=text/plain filename=\"$tmp\" disposition=inline>\n"
-    . "<#/part>\n";
+  # The markup is escaped as <\# so that when this script is sent by
+  # mail (or part of a diff), Gnus is not triggered.
+  print "<\#part type=text/plain filename=\"$tmp\" disposition=inline>\n"
+    . "<\#/part>\n";
 
   open OUT, '>', $tmp
     or die "$ME: $tmp: cannot open for writing: $!\n";