From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68067 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: Character of Death locks one out of all newsgroups Date: Mon, 05 Jan 2009 17:00:16 +0900 Organization: Emacsen advocacy group Message-ID: References: <87bpuytys2.fsf@jidanni.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1231142542 10306 80.91.229.12 (5 Jan 2009 08:02:22 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 5 Jan 2009 08:02:22 +0000 (UTC) Cc: ding@gnus.org To: jidanni@jidanni.org Original-X-From: ding-owner+M16512@lists.math.uh.edu Mon Jan 05 09:03:32 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1LJkQt-0006Co-IA for ding-account@gmane.org; Mon, 05 Jan 2009 09:03:31 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1LJkOo-0003nL-HI; Mon, 05 Jan 2009 02:01:22 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1LJkOl-0003n0-IZ for ding@lists.math.uh.edu; Mon, 05 Jan 2009 02:01:19 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1LJkOi-00011f-HM for ding@lists.math.uh.edu; Mon, 05 Jan 2009 02:01:19 -0600 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1LJkOy-00081n-00 for ; Mon, 05 Jan 2009 09:01:32 +0100 Original-Received: from localhost ([127.0.0.1]:53050) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1LJkO2-0001SX-HC; Mon, 05 Jan 2009 02:00:36 -0600 X-Hashcash: 1:20:090105:jidanni@jidanni.org::ZH3BhLNrCERIIF9V:0000000000000000000000000000000000000000000vlf X-Hashcash: 1:20:090105:ding@gnus.org::N1R6kuVFhc1A8Rya:00009DFE 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&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.60 (gnu/linux) Cancel-Lock: sha1:9cctPJq7mkkOBy4izhQIjQZxdcE= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68067 Archived-At: --=-=-= >>>>> Katsumi Yamaoka wrote: > Anyway we will need time to fix this problem (see `w3m-ucs-to-char' > provided in w3m-ems.el and w3m-xmas.el and `w3m-decode-entities' in > w3m.el.) I made a patch for mm-util.el and mm-url.el, however I'm not quite sure it works in your Emacs environment (locale?, language?, ...). So could you try loading the attached file and reading the nnrss group in question? If it works, I'll add them to No Gnus. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=LOADME.el Content-Description: LOADME ;; mm-util.el (cond ((condition-case nil (let ((char (make-char 'japanese-jisx0208 36 34))) (eq char (decode-char 'ucs char))) ;; Emacs 23. (error nil)) (defalias 'mm-ucs-to-char 'identity)) ((fboundp 'decode-char) (defun mm-ucs-to-char (codepoint) "Convert Unicode codepoint to character." (or (decode-char 'ucs codepoint) ?#))) ((and (fboundp 'unicode-to-char) ;; XEmacs 21.5. (subrp (symbol-function 'unicode-to-char))) (if (featurep 'mule) (defalias 'mm-ucs-to-char 'unicode-to-char) (defun mm-ucs-to-char (codepoint) "Convert Unicode codepoint to character." (or (unicode-to-char codepoint) ?#)))) ((featurep 'mule) (defun mm-ucs-to-char (codepoint) "Convert Unicode codepoint to character." (if (fboundp 'ucs-to-char) ;; Mule-UCS is loaded. (progn (defalias 'mm-ucs-to-char (lambda (codepoint) "Convert Unicode codepoint to character." (condition-case nil (or (ucs-to-char codepoint) ?#) (error ?#)))) (mm-ucs-to-char codepoint)) (condition-case nil (or (int-to-char codepoint) ?#) (error ?#))))) (t (defun mm-ucs-to-char (codepoint) "Convert Unicode codepoint to character." (condition-case nil (or (int-to-char codepoint) ?#) (error ?#))))) ;; mm-url.el (require 'mm-url) (defun mm-url-decode-entities () "Decode all HTML entities." (goto-char (point-min)) (while (re-search-forward "&\\(#[0-9]+\\|[a-z]+[0-9]*\\);" nil t) (let ((elem (if (eq (aref (match-string 1) 0) ?\#) (let ((c (mm-ucs-to-char (string-to-number (substring (match-string 1) 1))))) (if (mm-char-or-char-int-p c) c ?#)) (or (cdr (assq (intern (match-string 1)) mm-url-html-entities)) ?#)))) (unless (stringp elem) (setq elem (char-to-string elem))) (replace-match elem t t)))) --=-=-=--