diff options
| author | Julien Danjou <julien@danjou.info> | 2012-07-25 22:10:37 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-07-25 22:10:37 +0000 |
| commit | 71f32295cef7d059e22d9e3685d11c4c53d5c328 (patch) | |
| tree | 414da9bb56e65d77412c4dcf52a403825258ffdd /lisp/gnus/gnus-art.el | |
| parent | 57ec30344f904155e4e8adfe823250de8e168463 (diff) | |
| download | emacs-71f32295cef7d059e22d9e3685d11c4c53d5c328.tar.gz | |
gnus-art.el (gnus-kill-sticky-article-buffers): Reintroduce
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 12 |
1 files changed, 12 insertions, 0 deletions
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 ;;; |