projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Importing gnus-5.6.44.
[elisp/gnus.git-]
/
lisp
/
nndraft.el
diff --git
a/lisp/nndraft.el
b/lisp/nndraft.el
index
c2736a7
..
c6f23c4
100644
(file)
--- a/
lisp/nndraft.el
+++ b/
lisp/nndraft.el
@@
-80,6
+80,7
@@
(let* ((buf (get-buffer-create " *draft headers*"))
article)
(set-buffer buf)
(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))
(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)
(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))
(insert-buffer buf)
(setq article (nndraft-request-accept-article
group (nnoo-current-server 'nndraft) t 'noinsert))