From 71f32295cef7d059e22d9e3685d11c4c53d5c328 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 25 Jul 2012 22:10:37 +0000 Subject: [PATCH] gnus-art.el (gnus-kill-sticky-article-buffers): Reintroduce --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-art.el | 12 ++++++++++++ 2 files changed, 16 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index dcdddc8cc10..83cb55d3594 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2012-07-25 Julien Danjou + + * gnus-art.el (gnus-kill-sticky-article-buffers): Reintroduce. + 2012-07-25 Katsumi Yamaoka * nnimap.el (nnimap-get-responses): Don't remove, still used. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 4bdf8354aae..bb374fba11b 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -4775,6 +4775,18 @@ If none is given, assume the current buffer and kill it if it has (when (eq major-mode 'gnus-sticky-article-mode) (gnus-kill-buffer buffer)))) +(defun gnus-kill-sticky-article-buffers (arg) + "Kill all sticky article buffers. +If a prefix ARG is given, ask for confirmation." + (interactive "P") + (dolist (buf (gnus-buffers)) + (with-current-buffer buf + (when (eq major-mode 'gnus-sticky-article-mode) + (if (not arg) + (gnus-kill-buffer buf) + (when (yes-or-no-p (concat "Kill buffer " (buffer-name buf) "? ")) + (gnus-kill-buffer buf))))))) + ;;; ;;; Gnus MIME viewing functions ;;; -- 2.39.2