From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 30 Dec 1998 03:41:55 +0000 (+0000)
Subject: (browse-url-mail): Give argument SEND-ACTION
X-Git-Tag: emacs-20.4~990
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e58883dd43af15f1547fdbe9e0fe895fe5c659f5;p=emacs.git

(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 219378c1b52..86774d860cb 100644
--- 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 ---