2 files changed, 6 insertions, 4 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f1122be967b..1dbde2ece02 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * gnus-soup.el (gnus-soup-send-packet): Don't use
+        mm-with-unibyte-current-buffer since the buffer is unibyte anyway.
+
         * nnmh.el: Use with-current-buffer.
         (nnmh-request-list-1): Use mm-string-to-multibyte rather than
         mm-string-as-multibyte on the output of mm-encode-coding-string.
diff --git a/lisp/gnus/gnus-soup.el b/lisp/gnus/gnus-soup.el
index f34e001e231..7133c452217 100644
--- a/lisp/gnus/gnus-soup.el
+++ b/lisp/gnus/gnus-soup.el
@@ -594,9 +594,8 @@ Return whether the unpacking was successful."
                               (mail-fetch-field "to"))
                 (sit-for 1)
                 (let ((mail-header-separator ""))
-                  (mm-with-unibyte-current-buffer
-                    (funcall (or message-send-mail-real-function
-                                 message-send-mail-function)))))
+                  (funcall (or message-send-mail-real-function
+                               message-send-mail-function))))
                (t
                 (error "Unknown reply kind")))
               (set-buffer msg-buf)
@@ -610,5 +609,5 @@ Return whether the unpacking was successful."
 
 (provide 'gnus-soup)
 
-;;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c
+;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c
 ;;; gnus-soup.el ends here