From: keiichi <keiichi>
Date: Thu, 23 Dec 1999 10:09:52 +0000 (+0000)
Subject: (gnus-request-accept-article): Do not encode message.
X-Git-Tag: nana-gnus-7_1_0_16~102
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1918b98d81d55f8412f4df398c26c14a224d7970;p=elisp%2Fgnus.git-

(gnus-request-accept-article): Do not encode message.
---

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 5b6264d..ec71f40 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -456,11 +456,6 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
   (goto-char (point-max))
   (unless (bolp)
     (insert "\n"))
-  (unless no-encode
-    (save-restriction
-      (message-narrow-to-head)
-      (mail-encode-encoded-word-buffer))
-    (message-encode-message-body))
   (let ((func (car (or gnus-command-method
 		       (gnus-find-method-for-group group)))))
     (funcall (intern (format "%s-request-accept-article" func))
@@ -469,11 +464,6 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
 	     last)))
 
 (defun gnus-request-replace-article (article group buffer &optional no-encode)
-  (unless no-encode
-    (save-restriction
-      (message-narrow-to-head)
-      (mail-encode-encoded-word-buffer))
-    (message-encode-message-body))
   (let ((func (car (gnus-group-name-to-method group))))
     (funcall (intern (format "%s-request-replace-article" func))
 	     article (gnus-group-real-name group) buffer)))