From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/43521 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: cid images with emacs-w3m ? Date: Wed, 24 Jul 2002 11:46:45 +0900 Organization: Emacsen advocacy group Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035180201 28074 80.91.224.250 (21 Oct 2002 06:03:21 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 06:03:21 +0000 (UTC) Cc: emacs-w3m@namazu.org Return-Path: Original-Received: (qmail 29435 invoked from network); 24 Jul 2002 02:48:02 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 24 Jul 2002 02:48:02 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 17XCBl-0007GS-00; Tue, 23 Jul 2002 21:47:45 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 23 Jul 2002 21:48:10 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id VAA22879 for ; Tue, 23 Jul 2002 21:47:58 -0500 (CDT) Original-Received: (qmail 29426 invoked by alias); 24 Jul 2002 02:47:28 -0000 Original-Received: (qmail 29421 invoked from network); 24 Jul 2002 02:47:28 -0000 Original-Received: from groundpoundrecords.com (HELO mars.web-hosting.com) (207.228.244.150) by gnus.org with SMTP; 24 Jul 2002 02:47:28 -0000 Original-Received: from localhost ([207.228.245.242]) by mars.web-hosting.com (8.11.1/8.11.1) with ESMTP id g6O2l6g19292; Tue, 23 Jul 2002 22:47:07 -0400 (EDT) Original-To: ding@gnus.org User-Agent: Gnus/5.090007 (Oort Gnus v0.07) XEmacs/21.4 (Informed Management (RC2), sparc-sun-solaris2.6) X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( Cancel-Lock: sha1:5ShkHcL0cM+I/T1bmztWc7dH2q8= X-Hashcash: 020724:ding@gnus.org:f9eea935a6850823 X-Hashcash: 020724:emacs-w3m@namazu.org:7fad7c349b50cec3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:43521 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:43521 --=-=-= >>>>> In >>>>> Jinhyok Heo wrote: > Is it possible to see cid images(images which come within mails, not > URL) with emacs-w3m? Well, I think there is a nonsense logic in the function `mm-inline-text-html-render-with-w3m' and the option `mm-inline-text-html-with-images'. Could you try to use the attached patch? You need to set the option `mm-inline-text-html-with-images' to non-nil to see cid images: (setq mm-inline-text-html-with-images t) --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- lisp/mm-decode.el~ 2002-04-30 02:01:14 +0000 +++ lisp/mm-decode.el 2002-07-24 02:40:56 +0000 @@ -127,14 +127,23 @@ (defcustom mm-inline-text-html-with-images nil "If non-nil, Gnus will allow retrieving images in the HTML contents -with tags. It has no effect on Emacs/w3. For emacs-w3m, the -value of the option `w3m-display-inline-images' will be bound with -this value. In addition, the variable `w3m-safe-url-regexp' will be -bound with the value nil if it is non-nil to make emacs-w3m show all -images, however this behavior may be changed in the future." +with tags. It has no effect on Emacs/w3. See also +the documentation for the option `mm-w3m-safe-url-regexp'. :type 'boolean :group 'mime-display) +(defcustom mm-w3m-safe-url-regexp "\\`cid:" + "Regexp that matches safe url names. Some HTML mails might have the +trick of spammers using 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 to the regexp which matches +the safe url names. The value of the variable `w3m-safe-url-regexp' +will be bound with this value. You may set this value to nil if you +consider all the urls to be safe." + :type '(choice (regexp :tag "Regexp") + (const :tag "All URLs are safe" nil) + :group 'mime-display)) + (defcustom mm-inline-text-html-with-w3m-keymap t "If non-nil, use emacs-w3m command keys in the article buffer." :type 'boolean --- lisp/mm-view.el~ 2002-04-08 01:21:51 +0000 +++ lisp/mm-view.el 2002-07-24 02:40:48 +0000 @@ -281,9 +281,7 @@ (when charset (delete-region (point-min) (point-max)) (insert (mm-decode-string text charset))) - (let ((w3m-safe-url-regexp (if mm-inline-text-html-with-images - nil - "\\`cid:")) + (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp) (w3m-display-inline-images mm-inline-text-html-with-images) w3m-force-redisplay) (w3m-region (point-min) (point-max))) --=-=-=--