Re: w3 trouble

[Marc Girod <girod@shire.ntc.nokia.com>]

>>>>> "BL" == Björn Lindström <bkhl@elektrubadur.se> writes:

BL> Since nobody seems to be able to answer this, could maybe someone
BL> share their working w3/gnus settings, so I could try them out?

First, I have only: GNU Emacs 21.2.1

Then, I have quite a lot of settings that might affect.

First old Xresources:

Emacs*w3-tt-style.attributeFont:	-adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1
Emacs*w3-header-style.attributeForeground:	AntiqueWhite2
Emacs*w3-italic-style.attributeFont:	-adobe-courier-medium-o-normal--12-120-75-75-m-70-iso8859-1
Emacs*w3-node-style.attributeForeground:	CadetBlue2
Emacs*w3-visited-node-style.attributeFont:	-adobe-courier-medium-o-normal--12-120-75-75-m-70-iso8859-1
Emacs*w3-visited-node-style.attributeForeground:	CadetBlue3

Then some things at various levels in my emacs-lisp files:

(custom-set-faces
 '(cperl-array-face ((((class color) (background dark)) (:bold nil :foreground "wheat" :background "DeepSkyBlue4"))))
 '(widget-button-pressed-face ((t (:foreground "CadetBlue3"))))
 '(highlight-changes-delete-face ((t (:underline t :foreground "CadetBlue2"))))
 '(message-header-name-face ((t (:foreground "Goldenrod"))))
 '(message-header-cc-face ((t (:bold t :foreground "LimeGreen"))))
 '(cperl-hash-face ((((class color) (background dark)) (:bold nil :italic nil :foreground "Salmon" :background "DeepSkyBlue4"))))
 '(message-separator-face ((t (:foreground "Thistle"))))
 '(message-header-other-face ((t (:foreground "Khaki"))))
 '(message-cited-text-face ((t (:foreground "MediumTurquoise")))))

--------------------------------
(eval-when-compile (progn (require 'w3) (require 'w3-print) (require 'ssl)))

(defvar url-be-asynchronous t
  "*Controls whether document retrievals over HTTP should be done in
the background.  This allows you to keep working in other windows
while large downloads occur.")

(autoload 'w3-follow-url-under-mouse-other-frame "w3-addups" nil t)
(autoload 'w3-follow-url-under-mouse             "w3-addups" nil t)
(autoload 'w3-find-this-file-other-frame         "w3-addups" nil t)
(autoload 'w3-print-this-url                     "w3-print"  nil t)
(autoload 'w3-print-url-under-point              "w3-print"  nil t)

(global-set-key [S-mouse-2] 'w3-follow-url-under-mouse-other-frame)
(global-set-key [S-mouse-1] 'w3-follow-url-under-mouse)

(require 'mf-sitevars)
(add-hook 'w3-load-hook
  (function
   (lambda()
     (setq url-passwd-entry-func 'read-string)
     (setq w3-reuse-buffers 'yes)
     (setq w3-track-mouse t)
     (setq url-keep-history t)
     (setq widget-menu-minibuffer-flag t)
     (define-key w3-mode-map "\M-\C-o" 'w3-fetch-other-frame)
     (define-key w3-mode-map "e" 'w3-find-this-file)
     (define-key w3-mode-map "E" 'w3-find-this-file-other-frame)
     (define-key w3-mode-map "\M-<" 'w3-start-of-document)
     (define-key w3-mode-map "\M->" 'w3-end-of-document)

     (unless (string-match "^Exp" url-version)
       (add-to-list 'mm-mime-extensions '(".h"   . "text/emacs"))
       ; must be downcase for the code in mm.el?
       (add-to-list 'mm-mime-extensions '(".c"   . "text/emacs"))
       (add-to-list 'mm-mime-extensions '(".mak" . "text/emacs"))
       (mm-add-mailcap-entry "text" "emacs"
			     '(("viewer" . w3-default-local-file)
			       ("type" . "text/emacs"))))

     (setq url-proxy-services mf-url-proxy-services)
     )))

(add-hook
 'w3-mode-hook
 (function
  (lambda()
     (define-key w3-mode-map [mouse-3] nil)
     (define-key w3-mode-map [down-mouse-3] nil)
     (define-key w3-mode-map [S-down-mouse-3] 'w3-popup-menu))))

(setq w3-display-frames 'as-link)
(setq w3-user-colors-take-precedence t)
(setq w3-use-terminal-characters nil
      w3-use-terminal-glyphs nil
      w3-use-terminal-characters-on-tty nil)
(if mf-using-openssl
    (setq ssl-program-name "w3ssl"
	  ssl-view-certificate-program-name "w3ssl"
	  ssl-program-arguments '("s_client"
				  "-quiet"
				  "-connect" (concat host ":" service)
				  "-verify" (int-to-string 
					     ssl-certificate-verification-policy)
				  "-CApath" (expand-file-name
					     ssl-certificate-directory))
	  ssl-view-certificate-program-arguments '("x509"
						   "-text"
						   "-inform" "DER"))
  (setq ssl-program-name "s_client"
	ssl-program-arguments '("-host" host
				"-port" service
				"-verify" "4"
				"-CApath ~/.w3/certs")))

(if (string-match "^20" emacs-version)
    (require 'w3-auto "w3-auto")
  (autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
  (autoload 'w3-follow-url-at-point "w3" "Find document at pt" t)
  (autoload 'w3 "w3" "WWW Browser" t)
  (autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
  (autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
  (autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
  (autoload 'w3-show-hotlist "w3" "Use shortcuts to view WWW docs" t)
  (autoload 'w3-follow-link "w3" "Follow a hypertext link." t)
  (autoload 'w3-batch-fetch "w3" "Batch retrieval of URLs" t)
  (autoload 'url-get-url-at-point "url" "Find the url under the cursor" nil)
  (autoload 'url-file-attributes  "url" "File attributes of a URL" nil)
  (autoload 'url-popup-info "url" "Get info on a URL" t)
  (autoload 'url-retrieve   "url" "Retrieve a URL" nil)
  (autoload 'url-buffer-visiting "url" "Find buffer visiting a URL." nil))

(provide 'mf-w3)
--------------------------------

But now that I look at it, obviously, my string-match is obsolete, so
that I could see how w3-auto affects...

-- 
Marc Girod        P.O. Box 323        Voice:  +358-71 80 25581
Nokia NBI         00045 NOKIA Group   Mobile: +358-50 38 78415
Takomo 1 / 4c27   Finland             Fax:    +358-71 80 61604