From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/36726 Path: main.gmane.org!not-for-mail From: Raja R Harinath Newsgroups: gmane.emacs.gnus.general Subject: Re: mm-view.el uses w3-coding-system-for-mime-charset Date: Thu, 28 Jun 2001 17:04:44 -0500 Sender: harinath@cs.umn.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035172265 10148 80.91.224.250 (21 Oct 2002 03:51:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:51:05 +0000 (UTC) Cc: ding@gnus.org Return-Path: Return-Path: Original-Received: (qmail 23537 invoked from network); 28 Jun 2001 22:04:46 -0000 Original-Received: from mail.cs.umn.edu (128.101.34.200) by gnus.org with SMTP; 28 Jun 2001 22:04:46 -0000 Original-Received: from han.cs.umn.edu (IDENT:root@han.cs.umn.edu [128.101.35.134]) by mail.cs.umn.edu (8.11.3/8.11.3) with ESMTP id f5SM4j110350; Thu, 28 Jun 2001 17:04:45 -0500 (CDT) Original-Received: (from harinath@localhost) by han.cs.umn.edu (8.9.3/8.9.0) id RAA23021; Thu, 28 Jun 2001 17:04:45 -0500 X-Authentication-Warning: han.cs.umn.edu: harinath set sender to harinath@cs.umn.edu using -f Original-To: Vladimir Volovich In-Reply-To: (Vladimir Volovich's message of "Thu, 28 Jun 2001 14:09:57 +0400") User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.103 Original-Lines: 47 Xref: main.gmane.org gmane.emacs.gnus.general:36726 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:36726 Hi, Vladimir Volovich writes: > there is a call to w3-coding-system-for-mime-charset in mm-view.el, > but current w3 (from cvs) does not have such a function anymore. > > as a result, i get an error when viewing html parts. I'm using the following to fix that. Actually, mm-view.el should probably just use mm-charset-to-coding-system all the time -- it was derived from w3-c-s-f-m-c, IIRC. - Hari Index: mm-view.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/mm-view.el,v retrieving revision 6.7 diff -u -p -u -r6.7 mm-view.el --- mm-view.el 2001/05/29 09:23:59 6.7 +++ mm-view.el 2001/06/28 22:01:08 @@ -104,11 +104,14 @@ (and (boundp 'w3-meta-charset-content-type-regexp) (re-search-forward w3-meta-charset-content-type-regexp nil t))) - (setq charset (or (w3-coding-system-for-mime-charset - (buffer-substring-no-properties - (match-beginning 2) - (match-end 2))) - charset))) + (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 -- 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