From a17bd08e4fa33c7ec5680d3b9d6298b3226678a8 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 22 Aug 2024 09:43:33 +0100
Subject: [PATCH] No longer set producer field

---
 Changes        | 6 ++++++
 cpdfcommand.ml | 4 ----
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 90fce63..29dc888 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,9 @@
+2.7.2 (future)
+
+Fixes:
+
+o Removed setting of Producer field in AGPL version
+
 2.7.1 (July 2024)
 
 New features:
diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 6495310..04f1f89 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3087,10 +3087,6 @@ let set_creator s pdf =
 
 let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outname =
   if args.producer <> None then set_producer (unopt args.producer) pdf;
-  if agpl &&
-     (match args.op with Some (SetProducer _) -> false | _ -> match args.producer with None -> true | _ -> false)
-  then
-    set_producer "cpdf AGPL" pdf;
   if args.creator <> None then set_creator (unopt args.creator) pdf;
   if args.debugcrypt then Printf.printf "really_write_pdf\n";
   let will_linearize =