Ensure re-encoding after change in gnus-inews-do-gcc

* lisp/gnus/gnus-msg.el (gnus-inews-do-gcc): Re-encode the message
body if it has been modified by gnus-gcc-pre-body-encode-hook
(bug#54687).

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index f38f6f4ee2b..f6ae028a104 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1593,9 +1593,10 @@ this is a reply."
               (nnheader-set-temp-buffer " *acc*")
               (setq message-options (with-current-buffer cur message-options))
               (insert-buffer-substring cur)
+              (restore-buffer-modified-p nil)
               (run-hooks 'gnus-gcc-pre-body-encode-hook)
               ;; Avoid re-doing things like GPG-encoding secret parts.
-              (if (not encoded-cache)
+              (if (or (buffer-modified-p) (not encoded-cache))
                   (message-encode-message-body)
                 (erase-buffer)
                 (insert encoded-cache))