From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Marc Girod Newsgroups: gmane.emacs.help Subject: Re: w3 trouble Date: Fri, 17 Oct 2003 11:38:43 GMT Organization: Nokia Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: References: <87r81kkeb4.fsf@lucien.dreaming> <87y8vkcfi9.fsf@lucien.dreaming> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1066391203 20793 80.91.224.253 (17 Oct 2003 11:46:43 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 17 Oct 2003 11:46:43 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Oct 17 13:46:41 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AAT45-0003NX-00 for ; Fri, 17 Oct 2003 13:46:41 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AAT3O-0003Wf-IG for geh-help-gnu-emacs@m.gmane.org; Fri, 17 Oct 2003 07:45:58 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!news-stoc.telia.net!news-stoa.telia.net!telia.net!nntp.inet.fi!inet.fi!newsfeed1.nokia.com!news1.nokia.com!news2.nokia.com.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Mail-Copies-To: never Original-Lines: 134 User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 Original-NNTP-Posting-Host: 172.21.134.141 Original-X-Complaints-To: newsmaster@nokia.com Original-X-Trace: news2.nokia.com 1066390723 172.21.134.141 (Fri, 17 Oct 2003 14:38:43 EET DST) Original-NNTP-Posting-Date: Fri, 17 Oct 2003 14:38:43 EET DST Original-Xref: shelby.stanford.edu gnu.emacs.help:117358 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:13288 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:13288 >>>>> "BL" == Björn Lindström 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