* FLIM-ELS (flim-modules): Add `ew-scan-n'.

* ew-dec.el: Require 'ew-scan-n.

* ew-parse.scm: Add new token `n-body'.

* ew-var.el (ew-decode-field-syntax-alist): Add fields definition
`newsgroups', `path', `lines' and `xref'.

diff --git a/ChangeLog b/ChangeLog
index ae040e4..8ed500a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
 1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
 
+       * FLIM-ELS (flim-modules): Add `ew-scan-n'.
+
+       * ew-dec.el: Require 'ew-scan-n.
+
+       * ew-parse.scm: Add new token `n-body'.
+
+       * ew-var.el (ew-decode-field-syntax-alist): Add fields definition
+       `newsgroups', `path', `lines' and `xref'.
+
+1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
+
        * ew-dec.el (ew-decode-field-test): New function.
 
 1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>

diff --git a/FLIM-ELS b/FLIM-ELS
index 349c072..650a6c3 100644 (file)
--- a/FLIM-ELS
+++ b/FLIM-ELS
@@ -22,6 +22,7 @@
                      ew-scan-s
                      ew-scan-m
                      ew-scan-u
+                     ew-scan-n
                      ew-dec
                     std11
                     eword-decode eword-encode

diff --git a/ew-dec.el b/ew-dec.el
index 6688adf..91cb9c4 100644 (file)
--- a/ew-dec.el
+++ b/ew-dec.el
@@ -4,6 +4,7 @@
 (require 'ew-scan-s)
 (require 'ew-scan-m)
 (require 'ew-scan-u)
+(require 'ew-scan-n)
 (require 'ew-parse)
 (provide 'ew-dec)
 

diff --git a/ew-parse.el b/ew-parse.el
index b439926..e67dca0 100644 (file)
--- a/ew-parse.el
+++ b/ew-parse.el
@@ -54,6 +54,7 @@
 (defconst ew:us-texts  47)
 (defconst ew:us-wsp    48)
 (defconst ew:us-fold   49)
+(defconst ew:n-body    50)
 
 (defconst ew:token-defs
   (list 
@@ -107,6 +108,7 @@
    (cons 47 "us-texts")
    (cons 48 "us-wsp")
    (cons 49 "us-fold")
+   (cons 50 "n-body")
   ))
 
 ; *** Action Table ***

diff --git a/ew-parse.scm b/ew-parse.scm
index ddb0074..7abdedf 100644 (file)
--- a/ew-parse.scm
+++ b/ew-parse.scm
@@ -15,6 +15,7 @@ tag-phrase-msg-id*
 ;; S : STD11 structured field
 ;; M : MIME structured field
 ;; U : Unstructured field
+;; N : Non-scanning field
 
 lt              ; S/M
 gt              ; S/M
@@ -64,6 +65,8 @@ us-texts        ; U
 us-wsp          ; U
 us-fold         ; U
 
+n-body          ; N
+
 ; Productions
 (start (tag-mailbox gap mailbox)                  : ()
   (tag-mailbox* gap mailbox*)                     : ()

diff --git a/ew-var.el b/ew-var.el
index f4b8154..8fa7549 100644 (file)
--- a/ew-var.el
+++ b/ew-var.el
@@ -46,6 +46,10 @@
   (content-description  ew-scan-unibyte-unstructured)
   (content-disposition  ew-scan-unibyte-mime)
   (approved             ew-scan-unibyte-std11 . ew:tag-address+)
+  (newsgroups           ew-scan-unibyte-none)
+  (path                 ew-scan-unibyte-none)
+  (lines                ew-scan-unibyte-none)
+  (xref                 ew-scan-unibyte-none)
 ))
 
 (defvar ew-decode-field-default-syntax '(ew-scan-unibyte-unstructured))