From: keiichi <keiichi>
Date: Thu, 13 Apr 2000 05:41:29 +0000 (+0000)
Subject: (message-buffers): New function. (copy from Gnus 5.8.3)
X-Git-Tag: nana-gnus-7_1_0_16~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=21fd8f24a62a3af6f7322bd0d32127f46f580d17;p=elisp%2Fgnus.git-

(message-buffers): New function. (copy from Gnus 5.8.3)
---

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))