* rfc2047.el (rfc2047-syntax-table): Funcall.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3070b1c..fdcc143 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-05-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * rfc2047.el (rfc2047-syntax-table): Funcall.
+
+       * lpath.el ((featurep 'xemacs)): Added set-char-table-range. 
+       ((featurep 'xemacs)): No, don't.
+
        * rfc2047.el (rfc2047-encodable-p): Use the header charset. 
 
        * gnus-sum.el (gnus-summary-reselect-current-group): Supply

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index fb76875..1c14bef 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -272,7 +272,8 @@ The buffer may be narrowed."
     ;; Play safe and don't assume the form of the word syntax entry --
     ;; copy it from ?a.
     (if (fboundp 'set-char-table-range)        ; Emacs
-       (set-char-table-range table t (aref (standard-syntax-table) ?a))
+       (funcall (intern "set-char-table-range")
+                table t (aref (standard-syntax-table) ?a))
       (if (fboundp 'put-char-table)
          (if (fboundp 'get-char-table) ; warning avoidance
              (put-char-table t (get-char-table ?a (standard-syntax-table))