From 09569b5018c49d69aa821a035aff2d3a2259f764 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 27 Nov 1997 08:52:19 +0000
Subject: [PATCH] (gnus-inews-do-gcc): Guard `coding-system-for-write' by
 `raw-text'; run `gnus-before-do-gcc-hook'.

---
 lisp/gnus-msg.el |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index e7534f3..0272695 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -920,6 +920,7 @@ this is a reply."
 	(message-narrow-to-headers)
 	(let ((gcc (or gcc (mail-fetch-field "gcc" nil t)))
 	      (cur (current-buffer))
+	      (coding-system-for-write 'raw-text)
 	      groups group method)
 	  (when gcc
 	    (message-remove-header "gcc")
@@ -948,6 +949,7 @@ this is a reply."
 	      (save-excursion
 		(nnheader-set-temp-buffer " *acc*")
 		(insert-buffer-substring cur)
+		(run-hooks 'gnus-before-do-gcc-hook)
 		(goto-char (point-min))
 		(when (re-search-forward
 		       (concat "^" (regexp-quote mail-header-separator) "$")
-- 
1.7.10.4