From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/3188
Path: news.gmane.org!not-for-mail
From: Louis <usenet26@ossh.com>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Using emacs-w3m to use for links in emails
Date: Wed, 19 Nov 2003 20:31:51 GMT
Organization: EarthLink Inc. -- http://www.EarthLink.net
Message-ID: <hhptfodrhm.fsf@ossh.com>
References: <m3brr8jes9.fsf@home.tcob1.net>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138669373 17949 80.91.229.2 (31 Jan 2006 01:02:53 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 01:02:53 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:31:50 2006
Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!uio.no!news-FFM2.ecrc.net!logbridge.uoregon.edu!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread2.news.pas.earthlink.net.POSTED!730eac0f!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAJFBMVEWQcmwjGBYIAQK3l5PYwb2/
 paGVgn765uSwh4TsxsJvVVHVrKugwieXAAADO0lEQVR4nE2UwYvbVhCHx4Sojk4rNy3BN+mQw97K
 W7mq91h5jdElID+6iS5S3ArjaxeE6UUgEI/kKhAPXaxN2MLrURLUff9cZ+SkdG6a7838Zp5mHvzu
 +qNl/zP6hsSyrJnj2E/pjqMxlqbQOvYMEkV+Z66UMlzOQ+alYDq2BUuWoN9WqrXm00gPIRNgzpwZ
 3O3eUQAAKPW0DTQPBeVy4C6dYMBzHYUl7Lb+EMawh4ljwx36ne9rqUPmRhvZLUylUMSBdyg9+5wh
 EG4vq79zFFMoAkvl2PaPWcPEvuhlEMYILPXowM+LR/u6PgYeQHGWg0dFtPPWgTfGzHmdVYu2PT3r
 ZZebMC1KZTnwHrVfPrz56wds46YJczV19ZC3I7B/7Qr3oMzfztrLT1MW6fsLuI4GdwjFRcIQgvHw
 w4zAtxu/1zo6y4pKwCIYKwnYL2SltfallFUYY7lqJ8pHBNdr2WjdS1lncgC8KOsUpwS+y6TsffJn
 MsiFMC0kBL5BsCF/fay6fC8WZnu1R2CvsyOml/U/JxksqKbSVARe409GUtUT6+M9VRRxDwi8HEEV
 yOW8X1qfPB71AxMI/rxE6HP19pg4V4xzrbmYQPLLBQRa+k0+e3XPI2wqTCBZI5Bji1p75sf7W4zQ
 XQIHmjBZ+TqggyIUt3Ri+ADxmMn3qXvdiXwajWAJKYKHMzVSDVHopUXUB/+BakMyqB96orj1Az3w
 Jewwk19nx142A2NM4KxcQLrOHnwcBq2bThScCYYSHEFcZ3+EGN4xMjf0GJbFGVa1zpponcmmwzSi
 cD2Bw8DYYQRjjw12IaYFS/ccazjAYZ2t6rF5agNnoUwLJsoJaQTZF6Bp3lLYsTJtKZUkUA20TQKU
 Ac+8Eh4pFWXKms5DcZzcE0xFbM7gcM42dF1NlxeCpupkTktQI6gIVF25xxS0cgbtGhzeNlE9ghyE
 iCGNlYFDh+Cn1XYEAytxbmEfnwygNUhuAh9FHga8pnQq0hSB2RJ4PvibalOt8FEo8VVAo23DNXhy
 tysf/wFufjz6UR4fC3h/VWxXfMVCURpgXOrFAATzHV9x7i3E1+P0eiBILOPGDwa2KFPTVKN/BP8C
 vna5gvPAc7oAAAAASUVORK5CYII= 
X-Face: 05fn[C<5\8+7~D1QY%*@5@p7q&BiQ%F"0*vMR{G$:wv#_,yT,`7*@]z.PISw(PbV6{XSt4I
 ^*TT29PIj{lo:bO*2QtO;',Nk{zx}YDp3T3FSGk2Lee32XLpqMz|q7N~:9&G&Cr883o6krS-x(UIpc
 @~=0/@]0CE}~w=8p<Mqxytk2wS(8FB{UQ~N!/9OYgoV2#L0[6H8i98CF|<F;i.Vn0Ia{Or?a^\E&HG
 %;vHdV{`-Kh#eN4Go^\5W2F/rnrks^5L[H{Ljd1x9R`ukfz]U)j/r{*A}h/WL6.oEuA(
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux)
Cancel-Lock: sha1:P+kY+oGpKKiI0qKeQB4ybIR2exw=
Original-NNTP-Posting-Host: 66.133.214.136
Original-X-Complaints-To: abuse@earthlink.net
Original-X-Trace: newsread2.news.pas.earthlink.net 1069273911 66.133.214.136 (Wed, 19 Nov 2003 12:31:51 PST)
Original-NNTP-Posting-Date: Wed, 19 Nov 2003 12:31:51 PST
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:3329
Original-Lines: 51
X-Gnus-Article-Number: 3329   Tue Jan 17 17:31:50 2006
Xref: news.gmane.org gmane.emacs.gnus.user:3188
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/3188>

sean@tcob1.net (Sean Rima) writes:

> Hi folks
>
> I cannot get emacs-w3m to handle urls inside email, ie similar to Spamcop returns
>
> Sean

I use the following within ~/.gnus pressing <ENTER> on a URL fires up
w3m within the current buffer:

;; -- <SNIP>

(setq mm-text-html-renderer 'w3m)

(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))))))))))

;; -- <SNIP> --

-- 
LCC