From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/19094 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: PATCH for mm-util.el Date: 24 Nov 1998 10:59:44 +0900 Sender: owner-ding@hpc.uh.edu Message-ID: <283e79onov.fsf@kchisa.ga.sony.co.jp> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 X-Trace: main.gmane.org 1035157507 9812 80.91.224.250 (20 Oct 2002 23:45:07 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:45:07 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id VAA14109 for ; Mon, 23 Nov 1998 21:03:18 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id UAB25288; Mon, 23 Nov 1998 20:03:08 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 23 Nov 1998 20:03:02 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id UAA23201 for ; Mon, 23 Nov 1998 20:02:44 -0600 (CST) Original-Received: from gatekeeper8.sony.co.jp (firewall-user@gatekeeper8.Sony.CO.JP [202.238.80.22]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id VAA14077 for ; Mon, 23 Nov 1998 21:02:33 -0500 (EST) Original-Received: from mail2.sony.co.jp by inetgw8.sony.co.jp (3.7W+11/17/98) with ESMTP id KAA11291 for ; Tue, 24 Nov 1998 10:45:34 +0900 (JST) Original-Received: from shigw.shi.sony.co.jp by mail2.sony.co.jp (3.7W98112023b) with SMTP id LAA18984 for ; Tue, 24 Nov 1998 11:00:05 +0900 (JST) Original-Received: from gagw.ga.sony.co.jp (gabrg [43.1.185.224]) by shigw.shi.sony.co.jp (8.6.12+2.4W/3.4W-97092516) with SMTP id KAA20948 for ; Tue, 24 Nov 1998 10:59:32 +0900 Original-Received: from kchisa.ga.sony.co.jp by gagw.ga.sony.co.jp (4.2/6.4J.6) id AA02256; Tue, 24 Nov 98 10:58:02 JST Original-To: ding@gnus.org 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&( Original-Lines: 58 User-Agent: Gnus/5.070053 (Pterodactyl Gnus v0.53) Emacs/20.3.2 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:19094 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:19094 It seems that coding systems and MIME charsets are confused in mm-decode-coding-* and mm-encode-coding-*. Please apply the following patch if it is appropriate. --- pgnus-0.53/lisp/mm-util.el~ Sat Nov 21 17:51:18 1998 +++ pgnus-0.53/lisp/mm-util.el Tue Nov 24 10:37:42 1998 @@ -75,11 +75,7 @@ (if (fboundp (car elem)) (fset nfunc (car elem)) (fset nfunc (cdr elem))))) - '((decode-coding-string . (lambda (s a) s)) - (encode-coding-string . (lambda (s a) s)) - (encode-coding-region . ignore) - (coding-system-list . ignore) - (decode-coding-region . ignore) + '((coding-system-list . ignore) (char-int . identity) (device-type . ignore) (coding-system-equal . equal) @@ -94,6 +90,36 @@ (completing-read prompt (mapcar (lambda (s) (list (symbol-name (car s)))) mm-mime-mule-charset-alist))))))) + +(eval-and-compile + (mapcar + (lambda (elem) + (let ((nfunc (intern (format "mm-%s" (car elem))))) + (if (fboundp (car elem)) + (fset nfunc (cadr elem)) + (fset nfunc (caddr elem))))) + '((decode-coding-string + (lambda (string coding-system-or-mime-charset) + (decode-coding-string + string (mm-charset-to-coding-system coding-system-or-mime-charset))) + (lambda (s a) s)) + (encode-coding-string + (lambda (string coding-system-or-mime-charset) + (encode-coding-string + string (mm-charset-to-coding-system coding-system-or-mime-charset))) + (lambda (s a) s)) + (encode-coding-region + (lambda (start end coding-system-or-mime-charset) + (encode-coding-region + start end + (mm-charset-to-coding-system coding-system-or-mime-charset))) + ignore) + (decode-coding-region + (lambda (start end coding-system-or-mime-charset) + (decode-coding-region + start end + (mm-charset-to-coding-system coding-system-or-mime-charset))) + ignore)))) (defvar mm-coding-system-list nil) (defun mm-get-coding-system-list () -- Katsumi Yamaoka