From 1918b98d81d55f8412f4df398c26c14a224d7970 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 23 Dec 1999 10:09:52 +0000 Subject: [PATCH] (gnus-request-accept-article): Do not encode message. --- lisp/gnus-int.el | 10 ---------- 1 file changed, 10 deletions(-) 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))) -- 1.7.10.4