From: morioka <morioka>
Date: Sun, 13 Jul 1997 17:58:15 +0000 (+0000)
Subject: (std11-parse-ascii-token): Allow non-ASCII characters in comments.
X-Git-Tag: XEmacs-20_3-b15~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cd16acd2459dd574059045b03085e0b962ddcc6a;p=elisp%2Fapel.git

(std11-parse-ascii-token): Allow non-ASCII characters in comments.
---

diff --git a/std11-parse.el b/std11-parse.el
index 10912b0..608b600 100644
--- a/std11-parse.el
+++ b/std11-parse.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: mail, news, RFC 822, STD 11
 ;; Version:
-;;	$Id: std11-parse.el,v 0.15 1996-11-28 19:38:27 morioka Exp $
+;;	$Id: std11-parse.el,v 0.16 1997-07-13 17:58:15 morioka Exp $
 
 ;; This file is part of MU (Message Utilities).
 
@@ -162,12 +162,12 @@
   (let (token itl parsed token-value)
     (while (and lal
 		(setq token (car lal))
-		(if (and (setq token-value (cdr token))
-			 (find-non-ascii-charset-string token-value)
-			 )
-		    (setq token nil)
-		  (std11-ignored-token-p token)
-		  ))
+		(or (std11-ignored-token-p token)
+		    (if (and (setq token-value (cdr token))
+			     (find-non-ascii-charset-string token-value)
+			     )
+			(setq token nil)
+		      )))
       (setq lal (cdr lal))
       (setq itl (cons token itl))
       )