From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/52207 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: Bug in rfc2047.el Date: Sun, 04 May 2003 11:46:02 +0900 Sender: ding-owner@lists.math.uh.edu Message-ID: References: <878ytny3n2.fsf@unix.home> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1052016378 5151 80.91.224.249 (4 May 2003 02:46:18 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 4 May 2003 02:46:18 +0000 (UTC) Original-X-From: ding-owner+M749@lists.math.uh.edu Sun May 04 04:46:16 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19C9VX-0001Jx-00 for ; Sun, 04 May 2003 04:45:43 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19C9WH-0001h6-00; Sat, 03 May 2003 21:46:30 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19C9WA-0001h0-00 for ding@lists.math.uh.edu; Sat, 03 May 2003 21:46:22 -0500 Original-Received: (qmail 29299 invoked by alias); 4 May 2003 02:46:21 -0000 Original-Received: (qmail 29294 invoked from network); 4 May 2003 02:46:21 -0000 Original-Received: from java.hostforweb.net (66.197.222.237) by sclp3.sclp.com with SMTP; 4 May 2003 02:46:21 -0000 Original-Received: from [66.197.244.213] (helo=yamaoka.cc) by java.hostforweb.net with esmtp (Exim 3.36 #1) id 19C9Wd-0002ME-00 for ding@gnus.org; Sat, 03 May 2003 22:46:51 -0400 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&( User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:4It6Lwl/N1hZmM4c1dy5/T7JJsQ= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - java.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [0 0] / [0 0] X-AntiAbuse: Sender Address Domain - yamaoka.cc Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:52207 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:52207 --=-=-= >>>>> In <878ytny3n2.fsf@unix.home> >>>>> deskpot@despammed.com (Vasily Korytov) wrote: > This isn't the only error. I'm not sure, if I broke smth, but here is > the patch, that leads gnus here to byte-compile. But the patch doesn't fit to FSFmacs. Here's another one: --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- rfc2047.el~ 2003-05-03 23:12:10 +0000 +++ rfc2047.el 2003-05-04 02:45:45 +0000 @@ -246,11 +246,13 @@ ;; skip to the end of regions appropriately. Nb. ietf-drums does ;; things differently. (defconst rfc2047-syntax-table - ;; This is what we should do, but XEmacs doesn't support the optional - ;; arg of `make-syntax-table': -;; (let ((table (make-char-table 'syntax-table '(2)))) - (let ((table (make-char-table 'syntax-table))) - (map-char-table (lambda (k v) (aset table k '(2))) table) + (let (table) + (if (featurep 'xemacs) + (progn + (setq table (make-char-table 'syntax)) + (modify-syntax-entry t "w" table)) + (setq table (make-char-table 'syntax-table)) + (map-char-table (lambda (k v) (aset table k '(2))) table)) (modify-syntax-entry ?\\ "\\" table) (modify-syntax-entry ?\" "\"" table) (modify-syntax-entry ?\( "." table) --=-=-=--