Importing gnus-5.6.44.
[elisp/gnus.git-] / lisp / nndraft.el
index c2736a7..c6f23c4 100644 (file)
@@ -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))
   (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))