summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-msg.el
diff options
context:
space:
mode:
authorJames Thomas <jimjoe@gmx.net>2022-04-03 14:14:24 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-04-03 14:14:24 +0200
commit9f521db6fec6c6dbdfeb1145f4dbb603c0240299 (patch)
treeda1c319fa024366496c5391917f4a7d22d61b622 /lisp/gnus/gnus-msg.el
parent5e429e21d9ae7e217c4c2b5b6d78f932c8f6ae39 (diff)
downloademacs-9f521db6fec6c6dbdfeb1145f4dbb603c0240299.tar.gz
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).
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
-rw-r--r--lisp/gnus/gnus-msg.el3
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))