emacs-w3m

emacs-w3m

[Katsumi Yamaoka]

[-- Attachment #1: Type: text/plain, Size: 1564 bytes --]

Hi,

Emacs-w3m is yet another web browser for Emacsen.  It is light
and fast for rendering html contents, because it uses the
external command w3m.  Emacs-w3m can also show images inline
under XEmacs or Emacs 21+.  Why don't we use emacs-w3m for
converting text/html parts on Gnus?  I wish to install the
attached patch to Gnus CVS by myself.  Do you have any
objections?

If you are interested in emacs-w3m, visit the following web
site:

  http://emacs-w3m.namazu.org/

Note that you have to install both the lisp package emacs-w3m
and the external command w3m to make your Emacs web browser,
and some programs (e.g. gifsicle, ImageMagick, etc.) will help
you.  See the documentations for details.


2002-01-24  Katsumi Yamaoka  <yamaoka@jpl.org>

	* mm-decode.el (mm-inline-text-use-emacs-w3m): New user option.
	(mm-inline-media-tests): Check for w3m instead of w3 if
	`mm-inline-text-use-emacs-w3m' is non-nil.

	* mm-view.el (mm-inline-text-html-with-w3): New function separated
	from `mm-inline-text'.
	(w3m-region, w3m-mode-map): Bind them when compiling.
	(mm-w3m-minor-mode): New variable.
	(mm-w3m-setup): New variable.
	(mm-setup-w3m): New function.
	(mm-inline-text-html-with-w3m): New function.
	(mm-inline-text): Use `mm-inline-text-html-with-w3m' or
	`mm-inline-text-html-with-w3' to convert html part.


The original code which uses `defadvice' was posted in the news:

  From: greg@visiontech-dml.com
  Newsgroups: gnu.emacs.help
  Subject: Re: w3m-mode and images
  Date: 19 Jul 2001 10:59:19 +0300
  Message-ID: <2fasnftcpt4.fsf@broadcom.com>


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: w3m.patch --]
[-- Type: text/x-patch, Size: 7226 bytes --]

--- mm-decode.el~	Tue Jan 22 21:54:08 2002
+++ mm-decode.el	Thu Jan 24 02:36:27 2002
@@ -95,6 +95,11 @@
   `(list ,buffer ,type ,encoding ,undisplayer
 	 ,disposition ,description ,cache ,id))
 
+(defcustom mm-inline-text-use-emacs-w3m nil
+  "If non-nil, use emacs-w3m to show html parts.  Otherwise, use emacs-w3."
+  :type 'boolean
+  :group 'mime-display)
+
 (defcustom mm-inline-media-tests
   '(("image/jpeg"
      mm-inline-image
@@ -147,7 +152,9 @@
     ("text/html"
      mm-inline-text
      (lambda (handle)
-       (locate-library "w3")))
+       (if mm-inline-text-use-emacs-w3m
+	   (locate-library "w3m")
+	 (locate-library "w3"))))
     ("text/x-vcard"
      mm-inline-text
      (lambda (handle)
--- mm-view.el~	Mon Jan 14 22:01:28 2002
+++ mm-view.el	Thu Jan 24 02:36:27 2002
@@ -81,81 +81,124 @@
     (require 'url-vars)
     (setq mm-w3-setup t)))
 
+(defun mm-inline-text-html-with-w3 (handle)
+  (mm-setup-w3)
+  (let ((text (mm-get-part handle))
+	(b (point))
+	(url-standalone-mode t)
+	(w3-honor-stylesheets nil)
+	(w3-delay-image-loads t)
+	(url-current-object
+	 (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))
+	(width (window-width))
+	(charset (mail-content-type-get
+		  (mm-handle-type handle) 'charset)))
+    (save-excursion
+      (insert text)
+      (save-restriction
+	(narrow-to-region b (point))
+	(goto-char (point-min))
+	(if (or (and (boundp 'w3-meta-content-type-charset-regexp)
+		     (re-search-forward
+		      w3-meta-content-type-charset-regexp nil t))
+		(and (boundp 'w3-meta-charset-content-type-regexp)
+		     (re-search-forward
+		      w3-meta-charset-content-type-regexp nil t)))
+	    (setq charset
+		  (or (let ((bsubstr (buffer-substring-no-properties
+				      (match-beginning 2)
+				      (match-end 2))))
+			(if (fboundp 'w3-coding-system-for-mime-charset)
+			    (w3-coding-system-for-mime-charset bsubstr)
+			  (mm-charset-to-coding-system bsubstr)))
+		      charset)))
+	(delete-region (point-min) (point-max))
+	(insert (mm-decode-string text charset))
+	(save-window-excursion
+	  (save-restriction
+	    (let ((w3-strict-width width)
+		  ;; Don't let w3 set the global version of
+		  ;; this variable.
+		  (fill-column fill-column)
+		  (w3-honor-stylesheets nil)
+		  (w3-delay-image-loads t)
+		  (url-standalone-mode t))
+	      (condition-case var
+		  (w3-region (point-min) (point-max))
+		(error
+		 (delete-region (point-min) (point-max))
+		 (let ((b (point))
+		       (charset (mail-content-type-get
+				 (mm-handle-type handle) 'charset)))
+		   (if (or (eq charset 'gnus-decoded)
+			   (eq mail-parse-charset 'gnus-decoded))
+		       (save-restriction
+			 (narrow-to-region (point) (point))
+			 (mm-insert-part handle)
+			 (goto-char (point-max)))
+		     (insert (mm-decode-string (mm-get-part handle)
+					       charset))))
+		 (message
+		  "Error while rendering html; showing as text/plain"))))))
+	(mm-handle-set-undisplayer
+	 handle
+	 `(lambda ()
+	    (let (buffer-read-only)
+	      (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)))))))))
+
+(eval-when-compile
+  (autoload 'w3m-region "w3m")
+  (defvar w3m-mode-map))
+
+(defvar mm-w3m-minor-mode nil)
+(make-variable-buffer-local 'mm-w3m-minor-mode)
+(defvar mm-w3m-setup nil)
+(defun mm-setup-w3m ()
+  (unless mm-w3m-setup
+    (require 'w3m)
+    (gnus-add-minor-mode 'mm-w3m-minor-mode " w3m" w3m-mode-map)
+    (setq mm-w3m-setup t)))
+
+(defun mm-inline-text-html-with-w3m (handle)
+  (mm-setup-w3m)
+  (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 mm-w3m-minor-mode t))
+      (mm-handle-set-undisplayer
+       handle
+       `(lambda ()
+	  (let (buffer-read-only)
+	    (setq mm-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))))))))
+
 (defun mm-inline-text (handle)
   (let ((type (mm-handle-media-subtype handle))
-	text buffer-read-only)
+	buffer-read-only)
     (cond
      ((equal type "html")
-      (mm-setup-w3)
-      (setq text (mm-get-part handle))
-      (let ((b (point))
-	    (url-standalone-mode t)
-	    (w3-honor-stylesheets nil)
-	    (w3-delay-image-loads t)
-	    (url-current-object
-	     (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))
-	    (width (window-width))
-	    (charset (mail-content-type-get
-		      (mm-handle-type handle) 'charset)))
-	(save-excursion
-	  (insert text)
-	  (save-restriction
-	    (narrow-to-region b (point))
-	    (goto-char (point-min))
-	    (if (or (and (boundp 'w3-meta-content-type-charset-regexp)
-			 (re-search-forward
-			  w3-meta-content-type-charset-regexp nil t))
-		    (and (boundp 'w3-meta-charset-content-type-regexp)
-			 (re-search-forward
-			  w3-meta-charset-content-type-regexp nil t)))
-		(setq charset
-		      (or (let ((bsubstr (buffer-substring-no-properties
-					  (match-beginning 2)
-					  (match-end 2))))
-			    (if (fboundp 'w3-coding-system-for-mime-charset)
-				(w3-coding-system-for-mime-charset bsubstr)
-			      (mm-charset-to-coding-system bsubstr)))
-			  charset)))
-	    (delete-region (point-min) (point-max))
-	    (insert (mm-decode-string text charset))
-	    (save-window-excursion
-	      (save-restriction
-		(let ((w3-strict-width width)
-		      ;; Don't let w3 set the global version of
-		      ;; this variable.
-		      (fill-column fill-column)
-		      (w3-honor-stylesheets nil)
-		      (w3-delay-image-loads t)
-		      (url-standalone-mode t))
-		  (condition-case var
-		      (w3-region (point-min) (point-max))
-		    (error
-		     (delete-region (point-min) (point-max))
-		     (let ((b (point))
-			   (charset (mail-content-type-get
-				     (mm-handle-type handle) 'charset)))
-		       (if (or (eq charset 'gnus-decoded)
-			       (eq mail-parse-charset 'gnus-decoded))
-			   (save-restriction
-			     (narrow-to-region (point) (point))
-			     (mm-insert-part handle)
-			     (goto-char (point-max)))
-			 (insert (mm-decode-string (mm-get-part handle)
-						   charset))))
-		     (message
-		      "Error while rendering html; showing as text/plain"))))))
-	    (mm-handle-set-undisplayer
-	     handle
-	     `(lambda ()
-		(let (buffer-read-only)
-		  (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)))))))))
+      (if mm-inline-text-use-emacs-w3m
+	  (mm-inline-text-html-with-w3m handle)
+	(mm-inline-text-html-with-w3 handle)))
      ((equal type "x-vcard")
       (mm-insert-inline
        handle

Re: emacs-w3m

[Daniel Pittman]

On Thu, 24 Jan 2002, Katsumi Yamaoka wrote:
> Emacs-w3m is yet another web browser for Emacsen.  It is light
> and fast for rendering html contents, because it uses the
> external command w3m.  Emacs-w3m can also show images inline
> under XEmacs or Emacs 21+.  Why don't we use emacs-w3m for
> converting text/html parts on Gnus?  I wish to install the
> attached patch to Gnus CVS by myself.  Do you have any
> objections?

Some stylistic comments, but no real objection -- it would be great to
see better support for multiple rendering engines.

[...]

> 2002-01-24  Katsumi Yamaoka  <yamaoka@jpl.org>
> 
> 	* mm-decode.el (mm-inline-text-use-emacs-w3m): New user option.

Would it be possible to create `mm-inline-text-html-renderer' or
similar, which took a function to call passing the MIME handle, etc?

That way you could define `...-render-with-w3', `...-render-with-w3m'
and also any other HTML rendering solution that became desirable.

> 	 (mm-inline-media-tests): Check for w3m instead of w3 if
> 	`mm-inline-text-use-emacs-w3m' is non-nil.

You could set the default value for the above variable to the w3 version
if it's found, or w3m next.

        Daniel

-- 
The decay of society is praised by artists as
the decay of a corpse is praised by worms.
        -- G. K. Chesterton

Re: emacs-w3m

[Katsumi Yamaoka]

;; <emacs-w3m@namazu.org> is the open list, so you have no need
;; to exclude it from the recipients list.  "MCT: never" means
;; don't include me in the list. :-)

Hi,

Thanks Daniel for the comments.

>>>>> In <87lmeo1mxw.fsf@inanna.rimspace.net>
>>>>>	Daniel Pittman <daniel@rimspace.net> wrote:

> Some stylistic comments, but no real objection -- it would be
> great to see better support for multiple rendering engines.

I see.  It is natural.

KY> * mm-decode.el (mm-inline-text-use-emacs-w3m): New user option.

> Would it be possible to create `mm-inline-text-html-renderer' or
> similar, which took a function to call passing the MIME handle, etc?

> That way you could define `...-render-with-w3', `...-render-with-w3m'
> and also any other HTML rendering solution that became desirable.

KY>  (mm-inline-media-tests): Check for w3m instead of w3 if
KY> `mm-inline-text-use-emacs-w3m' is non-nil.

> You could set the default value for the above variable to the
> w3 version if it's found, or w3m next.

Good idea!  I will do so.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: emacs-w3m

[Katsumi Yamaoka]

Hi,

I've added the new user option `mm-inline-text-html-renderer' in
Gnus CVS.  It defaults to `mm-inline-text-html-render-with-w3'
which uses Emacs/w3 if it is available in your system.  If you
would like to use emacs-w3m, customize the option or put the
following line in your .gnus file:

(setq mm-inline-text-html-renderer
      'mm-inline-text-html-render-with-w3m)

> >>>>> In <87lmeo1mxw.fsf@inanna.rimspace.net>
> >>>>>	Daniel Pittman <daniel@rimspace.net> wrote:

[...]

>> You could set the default value for the above variable to the
>> w3 version if it's found, or w3m next.

> Good idea!  I will do so.

Thank you for the good suggestion!
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: emacs-w3m

[Niels Olof Bouvin]

On Thu, 24 Jan 2002, yamaoka@jpl.org wrote:

[...]

> I've added the new user option `mm-inline-text-html-renderer' in
> Gnus CVS.  It defaults to `mm-inline-text-html-render-with-w3'
> which uses Emacs/w3 if it is available in your system.  If you
> would like to use emacs-w3m, customize the option or put the
> following line in your .gnus file:
> 
> (setq mm-inline-text-html-renderer
>       'mm-inline-text-html-render-with-w3m)

Sweet, no more HTML delays.  Thank you for adding this.  Another possible
candidate for rendering HTML is Links.

Cheers
        Niels Olof


-- 
Niels Olof Bouvin, Ph.D.  http://www.bouvin.net/ Voice: +45 89 42 56 59 \ /
In omnibus requiem quaesivi, et nusquam inveni nisi in angulo cum libro (")
Assistant Research Professor @ Comp. Sci. Dept., Aarhus University, Denmark

Re: emacs-w3m

[Josh Huber]

Niels Olof Bouvin <n.o.bouvin@daimi.aau.dk> writes:

> Sweet, no more HTML delays.  Thank you for adding this.  Another
> possible candidate for rendering HTML is Links.

Yes, this is nice :)

Now, the question is -- can I make W h use w3m as well?  There are
some cases where I'd like to run an article through w3m even if Gnus
doesn't automatically do it.  I'd rather not use w3...

ttyl,

-- 
Josh Huber

Re: emacs-w3m

[Jinhyok Heo]

>>>>> "JH" == Josh Huber <huber@alum.wpi.edu> writes:

    JH> Now, the question is -- can I make W h use w3m as well?  There
    JH> are some cases where I'd like to run an article through w3m
    JH> even if Gnus doesn't automatically do it.  I'd rather not use
    JH> w3...

I also need this feature. Some people don't attach MIME header to
text/html mails.

-- 
| Jinhyok Heo (novembre @ ournature.org || http://ournature.org/~novembre/)
|--------------------------------------------------------------------------
| "We are still reaching for the sky. In the developed countries people
|  are coming back down, saying, `It's empty up there.'" --- a Ladakhi monk

Re: emacs-w3m

[ShengHuo ZHU]

Josh Huber <huber@alum.wpi.edu> writes:

> Niels Olof Bouvin <n.o.bouvin@daimi.aau.dk> writes:
>
>> Sweet, no more HTML delays.  Thank you for adding this.  Another
>> possible candidate for rendering HTML is Links.
>
> Yes, this is nice :)
>
> Now, the question is -- can I make W h use w3m as well?  There are
> some cases where I'd like to run an article through w3m even if Gnus
> doesn't automatically do it.  I'd rather not use w3...

(setq gnus-article-wash-function 'gnus-article-wash-html-with-w3m)

ShengHuo

Re: emacs-w3m

[Per Abrahamsen]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> ;; <emacs-w3m@namazu.org> is the open list, so you have no need
> ;; to exclude it from the recipients list.  "MCT: never" means
> ;; don't include me in the list. :-)

That is what happens when one uses to-address instead of to-list, in
order to avoid sending duplicates.

I guess on the ding list we can safely use to-list, since Gnus offers
several ways for the sender to avoid getting duplicates of answers
(and filter themn out in case he does).

Re: emacs-w3m

[Jinhyok Heo]

I tried to use emacs-w3m. Well, it's working well except that my
Korean characters doesn't render correctly.

Is there a way I can fix it?

The w3m inside XEmacs renders Korean very well, but not with gnus.

-- 
| Jinhyok Heo (novembre @ ournature.org || http://ournature.org/~novembre/)
|--------------------------------------------------------------------------
| "We are still reaching for the sky. In the developed countries people
|  are coming back down, saying, `It's empty up there.'" --- a Ladakhi monk

Re: emacs-w3m

[Katsumi Yamaoka]

[-- Attachment #1: Type: text/plain, Size: 549 bytes --]

>>>>> In [emacs-w3m : No.02589]
>>>>>	Jinhyok Heo <novembreN0$PAM@ournature.org> wrote:

JH> I tried to use emacs-w3m. Well, it's working well except that my
JH> Korean characters doesn't render correctly.

JH> Is there a way I can fix it?

JH> The w3m inside XEmacs renders Korean very well, but not with gnus.

Thank you for the report.  I've confirmed your problem.  The
attached text/html part is extracted from http://kr.yahoo.com/.
Gnus + Emacs/w3 or T-gnus shows it correctly, but Gnus +
emacs-w3m doesn't.  I will consider how to fix it...


[-- Attachment #2: Type: text/html, Size: 392 bytes --]

Re: emacs-w3m

[Katsumi Yamaoka]

Hi,

I've fixed charset-decoding problem in Gnus CVS, maybe.  Could
you try to use it?

>>>>> In <yosur8ofw757.fsf_-_@jpl.org>
>>>>>	Katsumi Yamaoka <yamaoka@jpl.org> wrote:

JH> I tried to use emacs-w3m. Well, it's working well except that my
JH> Korean characters doesn't render correctly.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: emacs-w3m

[Jinhyok Heo]

>>>>> "KY" == Katsumi Yamaoka <yamaoka@jpl.org> writes:

    KY> Hi, I've fixed charset-decoding problem in Gnus CVS, maybe.
    KY> Could you try to use it?

I've tested and it's working well. It renders html very neatly.

Thanks!

-- 
| Jinhyok Heo (novembre @ ournature.org || http://ournature.org/~novembre/)
|--------------------------------------------------------------------------
| "We are still reaching for the sky. In the developed countries people
|  are coming back down, saying, `It's empty up there.'" --- a Ladakhi monk

Re: emacs-w3m

[Jinhyok Heo]

>>>>> "KY" == Katsumi Yamaoka <yamaoka@jpl.org> writes:

    KY> JH> I tried to use emacs-w3m. Well, it's working well except that my
    KY> JH> Korean characters doesn't render correctly.

    KY> JH> Is there a way I can fix it?

    KY> JH> The w3m inside XEmacs renders Korean very well, but not with gnus.

    KY> Thank you for the report.  I've confirmed your problem.  The
    KY> attached text/html part is extracted from http://kr.yahoo.com/.
    KY> Gnus + Emacs/w3 or T-gnus shows it correctly, but Gnus +
    KY> emacs-w3m doesn't.  I will consider how to fix it...

I've found the following answer to the problem from Korean emacs
mailing list(emacs-kr@debian.or.kr). Jaeyoun Chung <jay@kldp.org>
wrote it.

Well, following two lines in mm-inline-text-using-w3m gave me an error
which said there was no such function url-current-object. Maybe the
function is not in XEmacs, but in Emacs.

	    (url-current-object
	     (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))

Anyway I've commented it out and it's working well in my XEmacs.

Now I'm also happy with html mails.  Thanks!

-- 
| Jinhyok Heo (novembre @ ournature.org || http://ournature.org/~novembre/)
|--------------------------------------------------------------------------
| "We are still reaching for the sky. In the developed countries people
|  are coming back down, saying, `It's empty up there.'" --- a Ladakhi monk

##### in my .xemacs/init.el
;;; w3m
(setq w3m-display-inline-image          t
      w3m-command-arguments             '("-no-graph")
      w3m-coding-system                 'euc-kr
      w3m-terminal-coding-system        'euc-kr
      w3m-input-coding-system           'euc-kr
      w3m-output-coding-system          'euc-kr
      w3m-file-name-coding-system       'euc-kr
      w3m-bookmark-file-coding-system   'euc-kr
      )
;; handle msoe's brain-damaged coding system
(eval-after-load "w3m"
  '(pushnew '(ks_c_5601-1987 . euc-kr) w3m-charset-coding-system-alist))
(add-hook 'w3m-fontify-after-hook 'remove-w3m-output-garbages)
(defun remove-w3m-output-garbages ()
      (interactive)
      (let ((buffer-read-only))
        (setf (point) (point-min))
        (while (re-search-forward "[\200-\240]" nil t)
          (replace-match " "))
        (set-buffer-multibyte t))
      (set-buffer-modified-p nil))
(autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
(autoload 'w3m-find-file "w3m" "w3m interface function for local file." t)
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
(autoload 'w3m-search "w3m-search" "Search QUERY using SEARCH-ENGINE." t)
(autoload 'w3m-weather "w3m-weather" "Display weather report." t)
(autoload 'w3m-antenna "w3m-antenna" "Report change of WEB sites." t)

(setq mm-inline-text-html-renderer
      'mm-inline-text-html-render-with-w3m)

##### in my .gnus.el
;; ======================================================================
;; start of w3m replacement for w3
;; ======================================================================
(defvar mm-w3m-setup nil)

(defun mm-setup-w3m ()
  (unless mm-w3m-setup
    (require 'w3m)
    (require 'url)
    (require 'url-vars)
    (setq mm-w3m-setup t)) )

(defun mm-inline-text-using-w3m (handle)
  (let ((type (mm-handle-media-subtype handle))
	text buffer-read-only)
    (cond
     ((equal type "html")
      (mm-setup-w3m)
      (setq text (mm-get-part handle))
      (let ((b (point))
	    (url-standalone-mode t)
;	    (url-current-object
;	     (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))
	    (width (window-width))
	    (charset (mail-content-type-get
		      (mm-handle-type handle) 'charset)))
	(save-excursion
	  (insert text)
	  (save-restriction
	    (narrow-to-region b (point))
	    (goto-char (point-min))
	    (delete-region (point-min) (point-max))
	    (insert (mm-decode-string text charset))
	    (save-window-excursion
	      (save-restriction
		(let ((fill-column fill-column)
		      (url-standalone-mode t))
		  (condition-case var
                      (w3m-region (point-min) (point-max))
		    (error
		     (message
		      "Error while rendering html; showing as text/plain"))))))
	    (mm-handle-set-undisplayer
	     handle
	     `(lambda ()
		(let (buffer-read-only)
		  (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)))))))))
     (t
      (error
       (message
        "only html part can be rendered by `mm-inline-text-using-w3m'"))))))

(defun article-wash-html ()
  "Format an html article."
  (interactive)
  (save-excursion
    (let ((buffer-read-only nil)
	  charset)
      (if (gnus-buffer-live-p gnus-original-article-buffer)
	  (with-current-buffer gnus-original-article-buffer
	    (let* ((ct (gnus-fetch-field "content-type"))
		   (ctl (and ct 
			     (ignore-errors
			       (mail-header-parse-content-type ct)))))
	      (setq charset (and ctl
				 (mail-content-type-get ctl 'charset)))
	      (if (stringp charset)
		  (setq charset (intern (downcase charset)))))))
      (unless charset 
	(setq charset gnus-newsgroup-charset))
      (article-goto-body)
      (save-window-excursion
	(save-restriction
	  (narrow-to-region (point) (point-max))
	  (mm-setup-w3m)
	  (let ((url-standalone-mode t))
	    (condition-case var
		(w3m-region (point-min) (point-max))
	      (error))))))))

(setq mm-inline-media-tests
      (cons '("text/html"
              mm-inline-text-using-w3m
              (lambda (handle)
                (locate-library "w3m")))
            mm-inline-media-tests))
;; ======================================================================
;; end of w3m replacement for w3
;; ======================================================================

Re: emacs-w3m

[Florian Weimer]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> Why don't we use emacs-w3m for converting text/html parts on Gnus?

Using w3m might have some nasty security implications (much like the
embedded Internet Explorer in Microsoft Outlook).

Re: emacs-w3m

[François Pinard]

[Florian Weimer]

> Katsumi Yamaoka <yamaoka@jpl.org> writes:

> > Why don't we use emacs-w3m for converting text/html parts on Gnus?

> Using w3m might have some nasty security implications (much like the
> embedded Internet Explorer in Microsoft Outlook).

Please elaborate. :-)

-- 
François Pinard   http://www.iro.umontreal.ca/~pinard

Re: emacs-w3m

[Steinar Bang]

>>>>> pinard@iro.umontreal.ca (François Pinard):

> [Florian Weimer]
>> Katsumi Yamaoka <yamaoka@jpl.org> writes:

>> > Why don't we use emacs-w3m for converting text/html parts on Gnus?

>> Using w3m might have some nasty security implications (much like the
>> embedded Internet Explorer in Microsoft Outlook).

> Please elaborate. :-)

I'm guessing he's referring to the trick of spammers using HTML emails
with <img> tags, to verify email addresses.

(The URL in the "src" attribute of the <img> tag contains an unique
identifier for a particular receipient address)

Re: emacs-w3m

[Patric Mueller]

Steinar Bang <sb@dod.no> wrote:

>>>>>> pinard@iro.umontreal.ca (François Pinard):
>
>> [Florian Weimer]
>>> Katsumi Yamaoka <yamaoka@jpl.org> writes:
>
>>> > Why don't we use emacs-w3m for converting text/html parts on Gnus?
>
>>> Using w3m might have some nasty security implications (much like the
>>> embedded Internet Explorer in Microsoft Outlook).
>
>> Please elaborate. :-)
>
> I'm guessing he's referring to the trick of spammers using HTML emails
> with <img> tags, to verify email addresses.
>
> (The URL in the "src" attribute of the <img> tag contains an unique
> identifier for a particular receipient address)
>

In that case, why do you use an html _browser_?

An html to text converter would be sufficient to display html mails. 

I use my own program (vilistextum) for this very purpose but html2text
should do as well.

http://www.mysunrise.ch/users/bhaak/vilistextum/
http://userpage.fu-berlin.de/~mbayer/tools/html2text.html

Bye
Patric

Re: emacs-w3m

[Katsumi Yamaoka]

Hi,

I've added the new user option.  Here is the info item:

`mm-inline-text-html-with-images'
     Some HTML mails might have the trick of spammers using `<img>'
     tags.  It is likely to be intended to verify whether you have read
     the mail.  You can prevent your personal informations from leaking
     by setting this option to `nil' (which is the default).  It is
     currently ignored by Emacs/w3.  For emacs-w3m, you may use the
     command `t' on the image anchor to show an image even if it is
     `nil'.

Please let me know if you have better solutions than this.

>>>>> In <87k7u43fkv.fsf@bang.priv.no>
>>>>>	Steinar Bang <sb@dod.no> wrote:

> I'm guessing he's referring to the trick of spammers using HTML emails
> with <img> tags, to verify email addresses.

> (The URL in the "src" attribute of the <img> tag contains an unique
> identifier for a particular receipient address)
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: emacs-w3m

[Dirk Meyer]

Katsumi Yamaoka wrote:
> Hi,
>
> I've added the new user option.  Here is the info item:
>
> `mm-inline-text-html-with-images'
>      Some HTML mails might have the trick of spammers using `<img>'
>      tags.  It is likely to be intended to verify whether you have read
>      the mail.  You can prevent your personal informations from leaking
>      by setting this option to `nil' (which is the default).  It is
>      currently ignored by Emacs/w3.  For emacs-w3m, you may use the
>      command `t' on the image anchor to show an image even if it is
>      `nil'.

Hi,

that doesn't work. I've (setq mm-inline-text-html-with-images t) but
the images aren't displayed. If I press i or enter at the image link
(toggle-display-xxx I think) still nothing happens. A second i or
enter displays the image. My guess is that some funktion thinks the
image is displayed, so the toggle function needs to be invoked twice.

I'm using todays gnus CVS, Emacs 21.1 and emacs-w3m 1.2.4


Dischi
 
-- 
My software never has bugs. It just develops random features.

Re: emacs-w3m

[Katsumi Yamaoka]

>>>>> In <xt4665ibjy6.fsf@riemen.informatik.uni-bremen.de>
>>>>>	Dirk Meyer <dmeyer@tzi.de> wrote:

KY>> `mm-inline-text-html-with-images'

> that doesn't work. I've (setq mm-inline-text-html-with-images t) but
> the images aren't displayed. If I press i or enter at the image link
> (toggle-display-xxx I think) still nothing happens. A second i or
> enter displays the image. My guess is that some funktion thinks the
> image is displayed, so the toggle function needs to be invoked twice.

It has become clear for me that not showing images by default is the
policy of emacs-w3m.  However, Gnus wouldn't be Gnus if it isn't
possible to customize the behavior.  So, then, I've modified the codes
related with this option.  Could you try to use the new Gnus in CVS?

And I've told emacs-w3m community that I have a suspicion with the
meaning of the variable `w3m-safe-url-regexp'.  They (and I) will
improve emacs-w3m in the future, and I will modify Gnus again if it is
needed to follow emacs-w3m.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: emacs-w3m

[Dirk Meyer]

Katsumi Yamaoka wrote:
>>>>>> In <xt4665ibjy6.fsf@riemen.informatik.uni-bremen.de>
>>>>>>	Dirk Meyer <dmeyer@tzi.de> wrote:
>
> KY>> `mm-inline-text-html-with-images'
>
>> that doesn't work. I've (setq mm-inline-text-html-with-images t) but
>> the images aren't displayed. If I press i or enter at the image link
>> (toggle-display-xxx I think) still nothing happens. A second i or
>> enter displays the image. My guess is that some funktion thinks the
>> image is displayed, so the toggle function needs to be invoked twice.
>
> It has become clear for me that not showing images by default is the
> policy of emacs-w3m.  However, Gnus wouldn't be Gnus if it isn't
> possible to customize the behavior.  So, then, I've modified the codes
> related with this option.  Could you try to use the new Gnus in CVS?

Sorry for the late answer, I've been busy the last week. Now it works! 



Dischi

-- 
Students nowadays, complaining they only get 5MBs of disk space! In my
day we were lucky if we had one file, and that was /dev/null. 

Re: emacs-w3m

[Florian Weimer]

pinard@iro.umontreal.ca (François Pinard) writes:

> [Florian Weimer]
>
>> Katsumi Yamaoka <yamaoka@jpl.org> writes:
>
>> > Why don't we use emacs-w3m for converting text/html parts on Gnus?
>
>> Using w3m might have some nasty security implications (much like the
>> embedded Internet Explorer in Microsoft Outlook).
>
> Please elaborate. :-)

I don't trust w3m, it has a remarkable security record.

Re: emacs-w3m

[François Pinard]

[Florian Weimer]

> pinard@iro.umontreal.ca (François Pinard) writes:

> > [Florian Weimer]
> >
> >> Katsumi Yamaoka <yamaoka@jpl.org> writes:
> >
> >> > Why don't we use emacs-w3m for converting text/html parts on Gnus?
> >
> >> Using w3m might have some nasty security implications (much like the
> >> embedded Internet Explorer in Microsoft Outlook).
> >
> > Please elaborate. :-)

> I don't trust w3m, it has a remarkable security record.

Your remark does not bring new information.  By "please elaborate", I was
inviting my correspondent to provide some facts on which an opinion could
be based, that is, more than the re-statement of an intuition or emotion...
Do you have some URL, pointer, flaw description, that could be verified?

`w3m' seems really speedy, and does reasonable work for tables, and at
least a little something for frames, so I would not like giving it up.
Let's see the real nature of the danger, and if there is anything serious,
if `w3m' could be salvaged -- it is most probably worth some effort! :-)

-- 
François Pinard   http://www.iro.umontreal.ca/~pinard

Re: emacs-w3m

[Katsumi Yamaoka]

Hi all,

If you have any troubles in emacs-w3m, not in Gnus, please send
emails to:

  emacs-w3m@namazu.org

This is the open list; comments, suggestions, and bug fixes are
welcome.  To subscribe <emacs-w3m@namazu.org>, send an email
containing

  subscribe Your Name (not your email address)

in the body to:

  emacs-w3m-ctl@namazu.org

Note that almost all of members are Japanese and Japanese is
mainly used for discussion, but we also welcome emails written
in English.

Thank you,

P.S.
All emails about emacs-w3m I've received in the ding list listed
below have been re-sent to <emacs-w3m@namazu.org>.

<861ygfg34x.fsf@duchess.twilley.org>
<3osn8wj8dv.fsf@www.okpos.com>
<87665re6if.fsf@deneb.enyo.de>
<oq3d0vxt3c.fsf@carouge.sram.qc.ca>
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: emacs-w3m

[Raja R Harinath]

Hi,

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> Emacs-w3m is yet another web browser for Emacsen.  It is light
> and fast for rendering html contents, because it uses the
> external command w3m.  Emacs-w3m can also show images inline
> under XEmacs or Emacs 21+.  Why don't we use emacs-w3m for
> converting text/html parts on Gnus?  

Does it handle cid: URLs?  Only enclosed images should be shown.  It
shouldn't fetch anything off the net.

- Hari
-- 
Raja R Harinath ------------------------------ harinath@cs.umn.edu
"When all else fails, read the instructions."      -- Cahn's Axiom
"Our policy is, when in doubt, do the right thing."   -- Roy L Ash

Re: emacs-w3m

[Katsumi Yamaoka]

>>>>> In <d9vgdod1c8.fsf@bose.cs.umn.edu> 
>>>>>	Raja R Harinath <harinath@cs.umn.edu> wrote:

> Does it handle cid: URLs?  Only enclosed images should be shown.
> It shouldn't fetch anything off the net.

I've received a patch for that from TSUCHIYA Masatoshi the
founder of emacs-w3m, and I've just installed it in Gnus CVS.
Could you test it?

P.S.
I've also received a patch from him to fix the security problem
which has been pointed out by Florian Weimer and Steinar Bang.
We will review it...
-- 
Katsumi Yamaoka <yamaoka@jpl.org>