* 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 14409cc..a7b160a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 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
        (Parser::parse): here.
        Adjust: nerrs and errstatus is now replaced by...

diff --git a/config/announce-gen b/config/announce-gen
index 7b8095a..01e4047 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";