diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-30 14:12:10 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-30 14:46:41 -0500 |
| commit | 8403b9a36862f3e781cfd9c556a7e981d9ee5417 (patch) | |
| tree | a5d98d1aa1d864e164e33836a10c399ceae1aae0 /lisp/gnus/nndoc.el | |
| parent | 8b3eb67be31730fd0eefc482a5d2d3f85449f881 (diff) | |
| download | emacs-8403b9a36862f3e781cfd9c556a7e981d9ee5417.tar.gz | |
* lisp/gnus: Use `with-current-buffer` at a few more places
* lisp/gnus/nnmbox.el (nnmbox-request-scan, nnmbox-read-mbox):
* lisp/gnus/nnmairix.el (nnmairix-create-search-group):
* lisp/gnus/nnfolder.el (nnfolder-existing-articles):
* lisp/gnus/nndraft.el (nndraft-auto-save-file-name):
* lisp/gnus/nndoc.el (nndoc-request-article):
* lisp/gnus/nnbabyl.el (nnbabyl-read-mbox):
* lisp/gnus/gnus-score.el (gnus-score-body):
* lisp/gnus/gnus-start.el (gnus-dribble-enter)
(gnus-dribble-eval-file, gnus-ask-server-for-new-groups)
(gnus-read-newsrc-file, gnus-read-descriptions-file):
* lisp/gnus/gnus-spec.el (gnus-update-format-specifications):
* lisp/gnus/gnus-draft.el (gnus-draft-edit-message):
* lisp/gnus/gnus-art.el (gnus-request-article-this-buffer)
(gnus-article-edit-exit): Use `with-current-buffer`.
Diffstat (limited to 'lisp/gnus/nndoc.el')
| -rw-r--r-- | lisp/gnus/nndoc.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el index c68e2012713..dccf6c1ffb7 100644 --- a/lisp/gnus/nndoc.el +++ b/lisp/gnus/nndoc.el @@ -256,11 +256,10 @@ from the document.") (deffoo nndoc-request-article (article &optional newsgroup server buffer) (nndoc-possibly-change-buffer newsgroup server) - (save-excursion - (let ((buffer (or buffer nntp-server-buffer)) - (entry (cdr (assq article nndoc-dissection-alist))) - beg) - (set-buffer buffer) + (let ((buffer (or buffer nntp-server-buffer)) + (entry (cdr (assq article nndoc-dissection-alist))) + beg) + (with-current-buffer buffer (erase-buffer) (when entry (cond |