Commit e58883dd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

to compose-mail in the correct places and as a list.
parent c8099634
......@@ -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 ---
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment