X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnngateway.el;h=c580ac553091600f9e083bbb873920f478b0e221;hb=a91d4e97ae63d8e4efca49c7ec5934e7aceb6e3e;hp=41dc00a1107b8b2765dfc0bc4feff124b53126ef;hpb=cda270b73d89201b8072b013dfde919798b168d6;p=elisp%2Fgnus.git-

diff --git a/lisp/nngateway.el b/lisp/nngateway.el
index 41dc00a..c580ac5 100644
--- a/lisp/nngateway.el
+++ b/lisp/nngateway.el
@@ -25,6 +25,7 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
 (require 'nnoo)
 (require 'message)
 
@@ -54,7 +55,7 @@ parameter -- the gateway address.")
 	    (nngateway-open-server server))
     ;; Rewrite the header.
     (let ((buf (current-buffer)))
-      (with-temp-buffer
+      (nnheader-temp-write nil
 	(insert-buffer-substring buf)
 	(message-narrow-to-head)
 	(funcall nngateway-header-transformation nngateway-address)