X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-int.el;h=505c28472471ee0e4bf2e965da9d5739878c4126;hb=baa7cb7f6c13f0609cb29ebefcff7a8fbd0d15e3;hp=8143d0d01735cf6e10be8d59c02662b84f2d54ed;hpb=009e7a4287f5cf6876c244b5f20b5c206db581a3;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 8143d0d..505c284 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -433,6 +433,10 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
   (goto-char (point-max))
   (unless (bolp)
     (insert "\n"))
+  (save-restriction
+    (message-narrow-to-headers)
+    (rfc2047-encode-message-header))
+  (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))
@@ -441,6 +445,10 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
 	     last)))
 
 (defun gnus-request-replace-article (article group buffer)
+  (save-restriction
+    (message-narrow-to-headers)
+    (rfc2047-encode-message-header))
+  (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)))