# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1205347793 0
# Node ID 3637573105bd75cd5fe50a89644cea209cdfe3b3
# Parent  a3d61f1532f1d4c92da1b8372df691d1f72f9fc1
(gnus-soup-send-packet): Don't use mm-with-unibyte-current-buffer
since the buffer is unibyte anyway.

diff -r a3d61f1532f1 -r 3637573105bd lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Mar 12 18:44:07 2008 +0000
+++ b/lisp/gnus/ChangeLog	Wed Mar 12 18:49:53 2008 +0000
@@ -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 -r a3d61f1532f1 -r 3637573105bd lisp/gnus/gnus-soup.el
--- a/lisp/gnus/gnus-soup.el	Wed Mar 12 18:44:07 2008 +0000
+++ b/lisp/gnus/gnus-soup.el	Wed Mar 12 18:49:53 2008 +0000
@@ -594,9 +594,8 @@
 			      (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 @@
 
 (provide 'gnus-soup)
 
-;;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c
+;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c
 ;;; gnus-soup.el ends here