* many files: Remove trailing whitespaces, replace spc+tab with

[gnus] / lisp / ietf-drums.el

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index 982c520..9c79e91 100644 (file)
--- a/lisp/ietf-drums.el
+++ b/lisp/ietf-drums.el
@@ -1,5 +1,5 @@
 ;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998, 1999, 2000
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -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)
@@ -204,21 +209,32 @@
     (with-temp-buffer
       (ietf-drums-init string)
       (let ((beg (point))
-           pairs c)
+           pairs c address)
        (while (not (eobp))
          (setq c (char-after))
          (cond
           ((memq c '(?\" ?< ?\())
-           (forward-sexp 1))
+           (condition-case nil
+               (forward-sexp 1)
+             (error
+              (skip-chars-forward "^,"))))
           ((eq c ?,)
-           (push (ietf-drums-parse-address (buffer-substring beg (point)))
-                 pairs)
+           (setq address
+                 (condition-case nil
+                     (ietf-drums-parse-address
+                      (buffer-substring beg (point)))
+                   (error nil)))
+           (if address (push address pairs))
            (forward-char 1)
            (setq beg (point)))
           (t
            (forward-char 1))))
-       (push (ietf-drums-parse-address (buffer-substring beg (point)))
-             pairs)
+       (setq address
+             (condition-case nil
+                 (ietf-drums-parse-address
+                  (buffer-substring beg (point)))
+               (error nil)))
+       (if address (push address pairs))
        (nreverse pairs)))))
 
 (defun ietf-drums-unfold-fws ()