Merge from emacs-24; up to 2012-12-06T01:39:03Z!monnier@iro.umontreal.ca

[gnu-emacs] / lisp / gnus / gnus-dired.el

diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el
index e5ebb39f6d28c081e04f4019ede2705adda363af..1592d73684c68a108588dcad05574461669c29e0 100644 (file)
--- a/lisp/gnus/gnus-dired.el
+++ b/lisp/gnus/gnus-dired.el
@@ -155,8 +155,8 @@ filenames."
          (setq destination
                (if (= (length bufs) 1)
                    (get-buffer (car bufs))
-                 (gnus-completing-read "Attach to which mail composition buffer"
-                                         bufs t)))
+                 (gnus-completing-read "Attach to buffer"
+                                         bufs t nil nil (car bufs))))
        ;; setup a new mail composition buffer
        (let ((mail-user-agent gnus-dired-mail-mode)
              ;; A workaround to prevent Gnus from displaying the Gnus