default value 'w3 of mm-text-html-renderer

[Roland Winkler]

If w3 is available the default value of mm-text-html-renderer is 'w3.
However, w3 doesn't work for me with my recent CVS emacs. I always
get the error message

 (void-function url-register-protocol)

Typically, this happens for me while reading news using gnus. A
complete backtrace is attached below. Therefore, could it be
reasonable to exclude w3 from the list of possible default values of
mm-text-html-renderer?

The site-start.el I am using is also used by older versions of emacs
on our system. Therefore I would like to keep (require 'w3-auto) in
it. (Our version of w3 is "WWW 4.0pre.46 1999/10/01 20:22:11".)

Roland


Debugger entered--Lisp error: (void-function url-register-protocol)
  url-register-protocol(about w3-about url-identity-expander)
  w3-do-setup()
  mm-setup-w3()
  mm-inline-text-html-render-with-w3((#<buffer  *mm*<3>> ("text/html" (charset 
. "US-ASCII")) quoted-printable nil nil nil nil nil))
  mm-inline-text-html((#<buffer  *mm*<3>> ("text/html" (charset . "US-ASCII")) 
quoted-printable nil nil nil nil nil))
  mm-display-inline((#<buffer  *mm*<3>> ("text/html" (charset . "US-ASCII")) 
quoted-printable nil nil nil nil nil))
  mm-display-part((#<buffer  *mm*<3>> ("text/html" (charset . "US-ASCII")) 
quoted-printable nil nil nil nil nil))
  byte-code("address@hidden@b?yˆ`}ˆed|? !? 
C\f‰A@)‰,address@hidden,„BƒBÉÊ!„
Ë`‰-ÌÍ.\"cˆ`ÎÏÐÑ?ÒÓÔDEEÕÔ\fDÔ,DÔ\nD.¯FÖ×/!01Ø2Ù.Ú3¯\"BB#?Ü-`ÝÞß4&ˆ
      
address@hidden@;address@hidden@)#cˆ`ÎÏäÑ?ÒÓÔDEEÕÔ\fDÔ3DÔ\nD.¯FÖ×/!01Ø2Ù.Ú3¯\"BB#?Ü-`ÝÞß4&?cˆ‚“æcˆƒx
@;ƒ)
ç!ˆ‚p
5Š6qˆ7)address@hidden:@!ƒS
ã‚W
:GS3‰3@;address@hidden@)$ˆ,dbˆ\nÈ
 ¡ˆ)ê‡" [ibegend handles begend preferred ihandles x 2 mm-remove-parts 
point-marker gnus-unbuttonized-mime-type-p "multipart/alternative" 
gnus-add-text-properties format "%d.  " gnus-callback lambda (handles) unless 
setq gnus-article-mime-handle-alist quote gnus-mime-display-alternative append 
gnus-local-map-property face gnus-part gnus-data widget-convert-button link 
:action gnus-widget-press-button :button-keymap "(%c) %-18s" 42 32 1 (handles) 
"  " "\n\n" gnus-display-mime mm-display-part gnus-treat-article nil bufferp 
not-pref from id gnus-mime-button-map gnus-mouse-face-prop 
gnus-article-mouse-face ...] 16)
  gnus-mime-display-alternative(((#<buffer  *mm*<2>> ("text/plain" ...) 
quoted-printable nil nil nil nil nil) (#<buffer  *mm*<3>> ("text/html" ...) 
quoted-printable nil nil nil nil nil)) nil nil 1)
  gnus-mime-display-part((#("multipart/alternative" 0 21 (start nil from 
"address@hidden" buffer #<buffer  *mm*> boundary 
"----=_NextPart_84815C5ABAF209EF376268C8")) (#<buffer  *mm*<2>> ("text/plain" 
...) quoted-printable nil nil nil nil nil) (#<buffer  *mm*<3>> ("text/html" 
...) quoted-printable nil nil nil nil nil)))
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(39606 nil)
  gnus-summary-display-article(39606)
  gnus-summary-next-page(nil)
  call-interactively(gnus-summary-next-page)