[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 884b668b981: Use a temporary buffer in nnagent-request-set-mark
From: |
Andrew G Cohen |
Subject: |
emacs-29 884b668b981: Use a temporary buffer in nnagent-request-set-mark (bug#64117) |
Date: |
Thu, 29 Jun 2023 22:23:22 -0400 (EDT) |
branch: emacs-29
commit 884b668b98152a0df0bc0bdea49137f582faa005
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>
Use a temporary buffer in nnagent-request-set-mark (bug#64117)
Commit cb12a84f2c519a48dd87453c925e3bc36d9944db inadvertently removed
the use of a temporary buffer in nnagent-request-set-mark. Bug and
fix reported by Jens Schmidt <jschmidt4gnu@vodafonemail.de>
* lisp/gnus/nnagent.el (nnagent-request-set-mark): Restore the use of
a temporary buffer that was inadvertently removed.
(cherry picked from commit 5075d752773c31d959272a7e2b73b1dc38ba184c)
---
lisp/gnus/nnagent.el | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/lisp/gnus/nnagent.el b/lisp/gnus/nnagent.el
index 61ec66155e4..30d5514a8b7 100644
--- a/lisp/gnus/nnagent.el
+++ b/lisp/gnus/nnagent.el
@@ -118,17 +118,18 @@
(gnus-request-accept-article "nndraft:queue" nil t t))
(deffoo nnagent-request-set-mark (group action server)
- (insert "(gnus-agent-synchronize-group-flags \""
- group
- "\" '")
- (gnus-pp action)
- (insert " \""
- (gnus-method-to-server gnus-command-method)
- "\"")
- (insert ")\n")
- (let ((coding-system-for-write nnheader-file-coding-system))
- (write-region (point-min) (point-max) (gnus-agent-lib-file "flags")
- t 'silent))
+ (with-temp-buffer
+ (insert "(gnus-agent-synchronize-group-flags \""
+ group
+ "\" '")
+ (gnus-pp action)
+ (insert " \""
+ (gnus-method-to-server gnus-command-method)
+ "\"")
+ (insert ")\n")
+ (let ((coding-system-for-write nnheader-file-coding-system))
+ (write-region (point-min) (point-max) (gnus-agent-lib-file "flags")
+ t 'silent)))
;; Also set the marks for the original back end that keeps marks in
;; the local system.
(let ((gnus-agent nil))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 884b668b981: Use a temporary buffer in nnagent-request-set-mark (bug#64117),
Andrew G Cohen <=