John Paul Wallington wrote :
> Alex Shinn <[EMAIL PROTECTED]> writes:
>
>> >>>>> "John" == John Paul Wallington <[EMAIL PROTECTED]> writes:
>>
>> John> Alex Shinn <[EMAIL PROTECTED]> writes:
>> >> A quick workaround for at least displaying the HTML in the
>> >> *Article* buffer would be very much appreciated.
>>
>> John> w3m-el ?
>>
>> Hmmm... installed that and nothing changed. I was hoping for something
>> like an alist for configuring how Gnus handles different MIME types
>> (like a MIME equivalent to gnus-uu-user-view-rules), but from the info
>> docs it would seem that Gnus is inherently tied to w3.
>
> Whoops. I've seen gnus-w3m.el which advises mm-inline-text and maybe
> other functions; I thought that was shipped with the w3m-el package.
Not that I'm aware of - here's what I use, it came from usenet :
;; w3m-gnus.el
;;
;; as posted to gnu.emacs.help by John Wiegley <[EMAIL PROTECTED]> and
;; fixed by [EMAIL PROTECTED]
;;
;; Message-ID: <[EMAIL PROTECTED]>
;;
(require 'w3m)
(defvar gnus-w3m-minor-mode nil)
(make-variable-buffer-local 'gnus-w3m-minor-mode)
(add-to-list 'minor-mode-alist '(gnus-w3m-minor-mode " w3m"))
(add-to-list 'minor-mode-map-alist (cons 'gnus-w3m-minor-mode w3m-mode-map))
(defadvice mm-inline-text (around use-w3m-instead (handle) activate)
(let ((type (mm-handle-media-subtype handle)))
(if (not (equal type "html"))
ad-do-it
(let ((text (mm-get-part handle))
(b (point)))
(save-excursion
(insert text)
(save-restriction
(narrow-to-region b (point))
(goto-char (point-min))
(w3m-region (point-min) (point-max))
(setq gnus-w3m-minor-mode t))
(mm-handle-set-undisplayer
handle
`(lambda ()
(let (buffer-read-only)
(setq gnus-w3m-minor-mode nil)
(if (functionp 'remove-specifier)
(mapcar (lambda (prop)
(remove-specifier
(face-property 'default prop)
(current-buffer)))
'(background background-pixmap foreground)))
(delete-region ,(point-min-marker)
,(point-max-marker))))))))))
--
Andrew J Cosgriff <[EMAIL PROTECTED]>
cunning self corporation meringue interest
