Make `message-buffers' return all derived buffers

* message.el (message-buffers): Return all buffers derived from Message
to make `gnus-dired-attach' work with mu4e.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4d08b4..bbe79a2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-07  Stephen Eglen  <S.J.Eglen@damtp.cam.ac.uk>
+
+       * message.el (message-buffers): Return all buffers derived from Message
+       to make `gnus-dired-attach' work with mu4e.
+
 2012-06-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * nntp.el: Stop the `letf' madness.

diff --git a/lisp/message.el b/lisp/message.el
index f32981f..0a8feb6 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3855,7 +3855,7 @@ prefix, and don't delete any headers."
     (save-current-buffer
       (dolist (buffer (buffer-list t))
        (set-buffer buffer)
-       (when (and (eq major-mode 'message-mode)
+       (when (and (derived-mode-p 'message-mode)
                   (null message-sent-message-via))
          (push (buffer-name buffer) buffers))))
     (nreverse buffers)))