Mercurial > emacs

changeset 23839:2dcf9631cad2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(browse-url-mail): Call compose-mail-other-window with correct number of args. (browse-url-maybe-new-window): New arg. Callers changed.
author Dave Love <fx@gnu.org>
date Wed, 09 Dec 1998 16:53:34 +0000
parents e494267843f7
children 4a967683f653
files lisp/browse-url.el
diffstat 1 files changed, 14 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/browse-url.el	Wed Dec 09 16:38:37 1998 +0000
+++ b/lisp/browse-url.el	Wed Dec 09 16:53:34 1998 +0000
@@ -491,8 +491,8 @@
 	(not (eq (null browse-url-new-window-p)
 		 (null current-prefix-arg)))))
 
-(defun browse-url-maybe-new-window (arg)
-  (if (interactive-p)
+(defun browse-url-maybe-new-window (arg interactive)
+  (if interactive
       arg
     browse-url-new-window-p))
 
@@ -713,7 +713,7 @@
 				  (list "-remote"
 					(concat "openURL(" url
 						(if (browse-url-maybe-new-window
-						     new-window)
+						     new-window (interactive-p))
 						    ",new-window")
 						")")))))))
     (set-process-sentinel process
@@ -780,7 +780,7 @@
 	(save-excursion
 	  (find-file (format "/tmp/Mosaic.%d" pid))
 	  (erase-buffer)
-	  (insert (if (browse-url-maybe-new-window new-window)
+	  (insert (if (browse-url-maybe-new-window new-window (interactive-p))
 		      "newwin\n"
 		      "goto\n")
 		  url "\n")
@@ -848,7 +848,7 @@
   (process-send-string "browse-url"
 		       (concat "get url (" url ") output "
 			       (if (browse-url-maybe-new-window
-				    new-window)
+				    new-window (interactive-p))
 				   "new"
 				 "current")
 			       "\r\n"))
@@ -880,7 +880,7 @@
 When called non-interactively, optional second argument NEW-WINDOW is
 used instead of `browse-url-new-window-p'."
   (interactive (browse-url-interactive-arg "W3 URL: "))
-  (if (browse-url-maybe-new-window new-window)
+  (if (browse-url-maybe-new-window new-window (interactive-p))
       (w3-fetch-other-window)
     (w3-fetch url)))
 
@@ -929,13 +929,13 @@
 	 (buf (get-buffer "*lynx*"))
 	 (proc (and buf (get-buffer-process buf)))
 	 (n browse-url-lynx-input-attempts))
-    (if (and (browse-url-maybe-new-window new-buffer) buf)
+    (if (and (browse-url-maybe-new-window new-buffer (interactive-p)) buf)
 	;; Rename away the OLD buffer. This isn't very polite, but
 	;; term insists on working in a buffer named *lynx* and would
 	;; choke on *lynx*<1>
 	(progn (set-buffer buf)
 	       (rename-uniquely)))
-    (if (or (browse-url-maybe-new-window new-buffer)
+    (if (or (browse-url-maybe-new-window new-buffer (interactive-p))
 	    (not buf)
 	    (not proc)
 	    (not (memq (process-status proc) '(run stop))))
@@ -1011,15 +1011,14 @@
 used instead of `browse-url-new-window-p'."
   (interactive (browse-url-interactive-arg "Mailto URL: "))
   (save-excursion
-    (let ((func (if (browse-url-maybe-new-window new-window)
-		    'compose-mail-other-window
-		  'compose-mail))
-	  (to (if (string-match "^mailto:" url)
+    (let ((to (if (string-match "^mailto:" url)
 		  (substring url 7)
 		url)))
-      (apply func
-	     (list to nil nil nil nil nil (cons 'insert-buffer
-						(current-buffer)))))))
+      (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)))))))
 
 ;; --- Random browser ---