# HG changeset patch
# User Magnus Henoch <mange@freemail.hu>
# Date 1206740208 0
# Node ID ed215625a8cbf8b0c71fba27647224792cd7f578
# Parent  9e7b1b11aa5cd2cae9ec1eda00fd6a9a215dcbd3
(dns-write): Use set-buffer-multibyte.

diff -r 9e7b1b11aa5c -r ed215625a8cb lisp/net/dns.el
--- a/lisp/net/dns.el	Fri Mar 28 19:51:21 2008 +0000
+++ b/lisp/net/dns.el	Fri Mar 28 21:36:48 2008 +0000
@@ -137,6 +137,7 @@
   "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