(browse-url-mail): Give argument SEND-ACTION

to compose-mail in the correct places and as a list.

diff --git a/lisp/browse-url.el b/lisp/browse-url.el
index 219378c1b523eb11a46c0c4bdc421fb37519e6cf..86774d860cb06a30b434c160c6629c1aef5205df 100644 (file)
--- a/lisp/browse-url.el
+++ b/lisp/browse-url.el
@@ -1015,10 +1015,10 @@ used instead of `browse-url-new-window-p'."
                  (substring url 7)
                url)))
       (if (browse-url-maybe-new-window new-window (interactive-p))
-         (compose-mail-other-window to nil nil nil nil
-                                    (cons 'insert-buffer (current-buffer)))
-       (compose-mail to nil nil nil nil nil (cons 'insert-buffer
-                                              (current-buffer)))))))
+         (compose-mail-other-window to nil nil nil
+                                    (list 'insert-buffer (current-buffer)))
+       (compose-mail to nil nil nil nil
+                     (list 'insert-buffer (current-buffer)))))))
 
 ;; --- Random browser ---