From: morioka <morioka>
Date: Thu, 27 Nov 1997 08:52:19 +0000 (+0000)
Subject: (gnus-inews-do-gcc): Guard `coding-system-for-write' by `raw-text';
X-Git-Tag: gnus-6_7-tomo-199811302358~309
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=09569b5018c49d69aa821a035aff2d3a2259f764;p=elisp%2Fgnus.git-

(gnus-inews-do-gcc): Guard `coding-system-for-write' by `raw-text';
run `gnus-before-do-gcc-hook'.
---

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) "$")