[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: probs with firefox and gnus
From: |
Xning Lee |
Subject: |
Re: probs with firefox and gnus |
Date: |
Sun, 25 Jul 2004 08:00:35 +0800 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) |
rdc1x@comcast.net (Robert D. Crawford) writes:
> I am new to the world of gnus (about 1.5 weeks) and I am having a bit of
> a problem getting gnus and firefox to work well together. I found code
> on the emacs wiki to open an url in a new tab, but it opens in a new
> window instead. Here is the pertinent info:
>
> Debian sid
> Emacs 21.3
> Firefox 0.9.1
>
> The function code looks like this on the site:
>
> ;; I have added line numbers for reference in this post only
> ;; I also changed formatting to keep the lines under
> ;; 72 characters
>
> 1. (defun browse-url-firefox-new-tab (url &optional new-window)
> 2. "Open URL in a new tab in Firefox."
> 3. (interactive (browse-url-interactive-arg "URL: "))
> 4. (let ((cmd (shell-command-to-string
> 5. (concat "~/src/firefox/mozilla-xremote-client -a any 'openURL("
> 6. url ",new-tab)'"))))
> 7. (unless (string= "" cmd)
> 8. (message "Starting Firefox...")
> 9. (start-process (concat "firefox " url)
> nil "~/src/firefox/firefox" url)
> 10. (message "Starting Firefox...done"))))
>
> I changed line 5 to read:
>
> 5. (concat "/usr/lib/mozilla/mozilla-xremote-client -a
> any 'openURL("
>
> and
>
> 5. (concat "/usr/lib/mozilla-firefox/mozilla-firefox-xremote-client
> -a any 'openURL("
>
> and
>
> 5. (concat "/usr/bin/firefox -a firefox -remote
> 'openURL("
>
> but none of them seem to work. I also changed line 9 to reflect the
> local path to firefox. The line in my .emacs that pertains to this
> reads:
>
> '(browse-url-browser-function (quote browse-url-firefox-new-tab))
>
> I have tried google, but I can't seem to find anything. What am I
> missing here?
>
> Thanks,
>
> rdc
>
my code: ( update-alternatives --config mozilla ==> firefox )
==================================================================
(defun my-browser (url &optional new-window)
"Open URL in a new tab in Mozilla."
(interactive (browse-url-interactive-arg "URL: "))
(when
(string-match ".*No running window found\.$"
(shell-command-to-string
(concat "mozilla -remote 'openurl(" url ",new-tab)'")))
(message "Starting Mozilla...")
(start-process (concat "mozilla " url) nil
"/bin/sh" "-c" (concat "mozilla " url "|| true"))
(message "Starting Mozilla...done")))