[Emacs-diffs] master ce10b20 6/7: Encode before sending from nnspool

[Lars Ingebrigtsen]

branch: master
commit ce10b20710dcdf6952a8e6a8de1d054f17bdd883
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Encode before sending from nnspool
    
    * lisp/gnus/nnspool.el (nnspool-request-post): Encode data
    before sending it to the news server.
---
 lisp/gnus/nnspool.el |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el
index 620b8ac..07624f2 100644
--- a/lisp/gnus/nnspool.el
+++ b/lisp/gnus/nnspool.el
@@ -335,6 +335,7 @@ there.")
   (save-excursion
     (let* ((process-connection-type nil) ; t bugs out on Solaris
           (inews-buffer (generate-new-buffer " *nnspool post*"))
+          (buf (current-buffer))
           (proc
            (condition-case err
                (apply 'start-process "*nnspool inews*" inews-buffer
@@ -346,7 +347,11 @@ there.")
          ()
        (nnheader-report 'nnspool "")
        (set-process-sentinel proc 'nnspool-inews-sentinel)
-       (mm-with-unibyte-current-buffer
+       (with-temp-buffer
+         (set-buffer-multibyte nil)
+         (insert-buffer-substring buf)
+         (encode-coding-region (point-min) (point-max)
+                               nnspool-file-coding-system)
          (process-send-region proc (point-min) (point-max)))
        ;; We slap a condition-case around this, because the process may
        ;; have exited already...