(gnus-soup-send-packet): Don't use mm-with-unibyte-current-buffer

since the buffer is unibyte anyway.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f1122be967b02dd9ab63174572c84359766119ff..1dbde2ece02aebccb0fe711a203e4587a8e7c558 100644 (file)
--- 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 f34e001e2316aecb7183fd51806a8cf02b2fe2b5..7133c4522170ea502df994bb551a461f00f9af8f 100644 (file)
--- 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