(dns-write): Use set-buffer-multibyte.

2 files changed, 5 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff7f79ca0e5..16c8cb6bc57 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-28  Magnus Henoch  <mange@freemail.hu>
+
+        * net/dns.el (dns-write): Use set-buffer-multibyte.
+
 2008-03-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * vc-bzr.el (vc-bzr-sha1): New fun.
diff --git a/lisp/net/dns.el b/lisp/net/dns.el
index 9e32d1fc353..cb859f9f5ca 100644
--- a/lisp/net/dns.el
+++ b/lisp/net/dns.el
@@ -137,6 +137,7 @@ If nil, /etc/resolv.conf will be consulted.")
   "Write a DNS packet according to SPEC.
 If TCP-P, the first two bytes of the package with be the length field."
   (with-temp-buffer
+    (set-buffer-multibyte nil)
     (dns-write-bytes (dns-get 'id spec) 2)
     (dns-write-bytes
      (logior