Mercurial > emacs

changeset 23959:af78e18ed775

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(browse-url-mail): Give argument SEND-ACTION to compose-mail in the correct places and as a list.
author Richard M. Stallman <rms@gnu.org>
date Wed, 30 Dec 1998 03:41:55 +0000
parents 7094b74ce0a6
children 37905ac69d9c
files lisp/browse-url.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/browse-url.el	Wed Dec 30 01:07:49 1998 +0000
+++ b/lisp/browse-url.el	Wed Dec 30 03:41:55 1998 +0000
@@ -1015,10 +1015,10 @@
 		  (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 ---