X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnndraft.el;h=c6f23c41026d2234d96c1888567019b787972470;hb=7bd51e7e85c1b314c2f2d00ebb26678762820d73;hp=c2736a7fb80322b3a70f655ec4a530721b247602;hpb=a414e3562d72f3f0c677acf65003ca339171dcc2;p=elisp%2Fgnus.git-

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index c2736a7..c6f23c4 100644
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -80,6 +80,7 @@
     (let* ((buf (get-buffer-create " *draft headers*"))
 	   article)
       (set-buffer buf)
+      (buffer-disable-undo (current-buffer))
       (erase-buffer)
       ;; We don't support fetching by Message-ID.
       (if (stringp (car articles))
@@ -153,7 +154,7 @@
   (let ((gnus-verbose-backends nil)
 	(buf (current-buffer))
 	 article file)
-    (with-temp-buffer
+    (nnheader-temp-write nil
       (insert-buffer buf)
       (setq article (nndraft-request-accept-article
 		     group (nnoo-current-server 'nndraft) t 'noinsert))