Re: How to do something a bit complicated with inline decoding?

[Raymond Scholz <ray-2001@zonix.de>]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
 
> But I know that I've seen mention of using w3m.el with Gnus.  But where?

;; Greg in <2fasnftcpt4.fsf@broadcom.com> on gnu.emacs.help
(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))))))))))

This code is also being mentioned in the file TIPS.ja (japanese)
coming with emacs-w3m.  It should do inline images with Emacs 21 too.
                               
Cheers, Ray
-- 
Hfr fgebat rapelcgvba!