Re: Bug in rfc2047.el

[Katsumi Yamaoka <yamaoka@jpl.org>]

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

>>>>> 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:


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

--- 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)