(defcustom browse-url-netfront-program "netfront3"
  "The name by which to invoke the Netfront web browser."
  :type 'string
  :group 'browse-url)

(defcustom browse-url-netfront-before-args '("qcop"
					     "QPE/System"
					     "execute(QString,QString)")
  "*A list of strings defining options for `browse-url-netfront-program'."
  :type '(repeat (string :tag "Argument"))
  :group 'browse-url)

(defcustom browse-url-netfront-args nil
  "*A list of strings defining options for `browse-url-netfront-program'."
  :type '(repeat (string :tag "Argument"))
  :group 'browse-url)

(defun browse-url-netfront (url &optional new-window)
  "Ask the Netfront WWW browser to load URL.
Default to the URL around or before point."
  (interactive (browse-url-interactive-arg "Netfront URL: "))
  (message "Sending URL to Netfront...")
  (apply #'start-process `(,(concat "Netfront" url) nil
			   ,@browse-url-netfront-before-args
			   ,browse-url-netfront-program
			   ,@browse-url-netfront-args ,url))
  (message "Sending URL to Netfront...done"))

;; To use, add the following line to your .emacs:
;; (autoload 'browse-url-netfront "browse-url-netfront" "" t)
;; (setq browse-url-browser-function 'browse-url-netfront)