Importing Oort Gnus v0.06.

[elisp/gnus.git-] / lisp / ietf-drums.el

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index e1b19a9..9c79e91 100644 (file)
--- a/lisp/ietf-drums.el
+++ b/lisp/ietf-drums.el
@@ -67,6 +67,11 @@
     (modify-syntax-entry ?* " " table)
     (modify-syntax-entry ?\; " " table)
     (modify-syntax-entry ?\' " " table)
+    (if (featurep 'xemacs)
+       (let ((i 128))
+         (while (< i 256)
+           (modify-syntax-entry i "w" table)
+           (setq i (1+ i)))))
     table))
 
 (defun ietf-drums-token-to-list (token)
@@ -216,7 +221,7 @@
           ((eq c ?,)
            (setq address
                  (condition-case nil
-                     (ietf-drums-parse-address 
+                     (ietf-drums-parse-address
                       (buffer-substring beg (point)))
                    (error nil)))
            (if address (push address pairs))
@@ -226,7 +231,7 @@
            (forward-char 1))))
        (setq address
              (condition-case nil
-                 (ietf-drums-parse-address 
+                 (ietf-drums-parse-address
                   (buffer-substring beg (point)))
                (error nil)))
        (if address (push address pairs))