From 5ee3c37634f7f8651b2da1f4b611334a2b146928 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Fri, 10 Jan 2020 13:34:59 -0500 Subject: Make sure that all gnus buffers are killed on exit * lisp/gnus/gnus-agent.el (gnus-agent-synchronize-flags-server): Use `gnus-get-buffer-create' instead of `get-buffer-create' * lisp/gnus/gnus-bookmark.el (gnus-bookmark-write-file): Likewise. (gnus-bookmark-bmenu-list): Likewise. (gnus-bookmark-show-details): Likewise. * lisp/gnus/gnus-draft.el (gnus-draft-setup): Likewise. * lisp/gnus/gnus-icalendar.el (gnus-icalendar-reply): Likewise. * lisp/gnus/gnus-int.el (gnus-backend-trace): Likewise. * lisp/gnus/gnus-srvr.el (gnus-enter-server-buffer): Likewise. * lisp/gnus/gnus-sum.el (gnus-summary-pipe-output): Likewise. * lisp/gnus/gnus-util.el (gnus-output-to-rmail): Likewise. (gnus-output-to-mail): Likewise. (gnus-multiple-choice): Likewise. * lisp/gnus/mail-source.el (mail-source-call-script): Likewise. * lisp/gnus/message.el (message-cancel-news): Likewise. (message-resend): Likewise. * lisp/gnus/mm-archive.el (mm-dissect-archive): Likewise. * lisp/gnus/mml1991.el (mml1991-mailcrypt-sign): Likewise. (mml1991-mailcrypt-encrypt): Likewise. * lisp/gnus/mml2015.el (mml2015-mailcrypt-verify): Likewise. (mml2015-mailcrypt-clear-verify): Likewise. * lisp/gnus/nnbabyl.el (nnbabyl-request-move-article): Likewise. * lisp/gnus/nndiary.el (nndiary-request-move-article): Likewise. (nndiary-find-group-number): Likewise. (nndiary-open-nov): Likewise. (nndiary-generate-nov-file): Likewise. * lisp/gnus/nndoc.el (nndoc-possibly-change-buffer): Likewise. * lisp/gnus/nndraft.el (nndraft-request-move-article): Likewise. (nndraft-auto-save-file-name): Likewise. * lisp/gnus/nneething.el (nneething-get-head): Likewise. * lisp/gnus/nnfolder.el (nnfolder-request-move-article): Likewise. (nnfolder-open-nov): Likewise. * lisp/gnus/nnheader.el (nnheader-init-server-buffer): Likewise. (nnheader-set-temp-buffer): Likewise. * lisp/gnus/nnimap.el (nnimap-log-buffer): Likewise. * lisp/gnus/nnir.el (nnir-run-swish++): Likewise. (nnir-run-swish-e): Likewise. (nnir-run-hyrex): Likewise. (nnir-run-namazu): Likewise. (nnir-run-notmuch): Likewise. (nnir-run-find-grep): Likewise. * lisp/gnus/nnmail.el (nnmail-split-incoming): Likewise. (nnmail-cache-open): Likewise. (nnmail-log-split): Likewise. * lisp/gnus/nnmaildir.el (nnmaildir--with-work-buffer): Likewise. (nnmaildir--with-nov-buffer): Likewise. (nnmaildir--with-move-buffer): Likewise. * lisp/gnus/nnmairix.el (nnmairix-call-mairix-binary): Likewise. (nnmairix-call-mairix-binary-raw): Likewise. (nnmairix-replace-group-and-numbers): Likewise. * lisp/gnus/nnmbox.el (nnmbox-request-move-article): Likewise. * lisp/gnus/nnmh.el (nnmh-request-move-article): Likewise. * lisp/gnus/nnml.el (nnml-request-move-article): Likewise. (nnml-find-group-number): Likewise. (nnml-get-nov-buffer): Likewise. (nnml-generate-nov-file): Likewise. * lisp/gnus/nnrss.el (nnrss-opml-export): Likewise. * lisp/gnus/nntp.el (nntp-record-command): Likewise. * lisp/gnus/nnvirtual.el (nnvirtual-retrieve-headers): Likewise. * lisp/gnus/smime.el (smime-new-details-buffer): Likewise. (smime-certificate-info): Likewise. (smime): Likewise. * lisp/gnus/spam-stat.el (spam-stat-store-current-buffer): Likewise. --- lisp/gnus/smime.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/gnus/smime.el') diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index fe6daf6b037..2ae96782712 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el @@ -477,7 +477,7 @@ in the buffer specified by `smime-details-buffer'." ;; Various operations (defun smime-new-details-buffer () - (with-current-buffer (get-buffer-create smime-details-buffer) + (with-current-buffer (gnus-get-buffer-create smime-details-buffer) (erase-buffer))) (defun smime-pkcs7-region (b e) @@ -645,7 +645,7 @@ The following commands are available: (defun smime-certificate-info (certfile) (interactive "fCertificate file: ") - (let ((buffer (get-buffer-create (format "*certificate %s*" certfile)))) + (let ((buffer (gnus-get-buffer-create (format "*certificate %s*" certfile)))) (switch-to-buffer buffer) (erase-buffer) (call-process smime-openssl-program nil buffer 'display @@ -670,7 +670,7 @@ The following commands are available: "Go to the SMIME buffer." (interactive) (unless (get-buffer smime-buffer) - (with-current-buffer (get-buffer-create smime-buffer) + (with-current-buffer (gnus-get-buffer-create smime-buffer) (smime-mode))) (smime-draw-buffer) (switch-to-buffer smime-buffer)) -- cgit v1.2.1