From 21fd8f24a62a3af6f7322bd0d32127f46f580d17 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 13 Apr 2000 05:41:29 +0000 Subject: [PATCH] (message-buffers): New function. (copy from Gnus 5.8.3) --- lisp/message.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/message.el b/lisp/message.el index 400b10f..8563863 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1978,6 +1978,17 @@ be added to \"References\" field. (save-window-excursion (message-yank-original)))) +(defun message-buffers () + "Return a list of active message buffers." + (let (buffers) + (save-excursion + (dolist (buffer (buffer-list t)) + (set-buffer buffer) + (when (and (eq major-mode 'message-mode) + (null message-sent-message-via)) + (push (buffer-name buffer) buffers)))) + (nreverse buffers))) + (defun message-cite-original-without-signature () "Cite function in the standard Message manner." (let ((start (point)) -- 1.7.10.4