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