# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1289375725 0
# Node ID b6da43d9e0f5e42ff69e142f83f51ae7ae5d8c29
# Parent  94518a0a409666c99eb173be4011b10489e9017c
rfc2047.el (rfc2047-syntax-table): Simplify.

diff -r 94518a0a4096 -r b6da43d9e0f5 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Nov 10 06:23:53 2010 +0000
+++ b/lisp/gnus/ChangeLog	Wed Nov 10 07:55:25 2010 +0000
@@ -1,5 +1,7 @@
 2010-11-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* rfc2047.el (rfc2047-syntax-table): Simplify.
+
 	* gnus-art.el (article-treat-non-ascii): Use put-char-table instead of
 	set-char-table-range for XEmacs.
 
diff -r 94518a0a4096 -r b6da43d9e0f5 lisp/gnus/rfc2047.el
--- a/lisp/gnus/rfc2047.el	Wed Nov 10 06:23:53 2010 +0000
+++ b/lisp/gnus/rfc2047.el	Wed Nov 10 07:55:25 2010 +0000
@@ -346,13 +346,9 @@
     ;; it appears to be the cleanest way.
     ;; Play safe and don't assume the form of the word syntax entry --
     ;; copy it from ?a.
-    (if (fboundp 'set-char-table-range)	; Emacs
-	(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))
-			      table))))
+    (if (featurep 'xemacs)
+	(put-char-table t (get-char-table ?a (standard-syntax-table)) table)
+      (set-char-table-range table t (aref (standard-syntax-table) ?a)))
     (modify-syntax-entry ?\\ "\\" table)
     (modify-syntax-entry ?\" "\"" table)
     (modify-syntax-entry ?\( "(" table)