Re: Bug in rfc2047.el

[deskpot@despammed.com (Vasily Korytov)]

[-- Attachment #1: Type: text/plain, Size: 246 bytes --]

On Sun, 04 May 2003 01:28:42 +0200, Karl PflДsterer wrote:

> For XEmacs the parameter must be `'syntax' not `'syntax-table'.

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.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: rfc2047.el.patch --]
[-- Type: text/x-patch, Size: 866 bytes --]

Index: rfc2047.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/rfc2047.el,v
retrieving revision 6.45
diff -u -r6.45 rfc2047.el
--- rfc2047.el	3 May 2003 14:20:49 -0000	6.45
+++ rfc2047.el	4 May 2003 00:06:35 -0000
@@ -246,11 +246,7 @@
 ;; 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 (make-syntax-table '(2))))
     (modify-syntax-entry ?\\ "\\" table)
     (modify-syntax-entry ?\" "\"" table)
     (modify-syntax-entry ?\( "." table)

[-- Attachment #3: Type: text/plain, Size: 138 bytes --]

-- 
       I accept RFC3156 and RFC2440-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841