From: morioka <morioka>
Date: Sat, 16 Jan 1999 16:30:48 +0000 (+0000)
Subject: (eword-lexical-analyzer): Fix DOC-string.
X-Git-Tag: flim-1_12-199901161900~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0294172d48f37d4da2413403b72139d4b2a41445;p=elisp%2Fflim.git

(eword-lexical-analyzer): Fix DOC-string.
(eword-analyze-comment): Renamed from `eword-parse-comment'; change
second argument `from' to required argument; abolish alias
`eword-analyze-comment' of `eword-parse-comment'.
---

diff --git a/eword-decode.el b/eword-decode.el
index 8444d7d..480478a 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -7,9 +7,10 @@
 ;;         TANAKA Akira <akr@jaist.ac.jp>
 ;; Created: 1995/10/03
 ;; Original: 1992/07/20 ENAMI Tsugutomo's `mime.el'.
-;;	Renamed: 1993/06/03 to tiny-mime.el
-;;	Renamed: 1995/10/03 from tiny-mime.el (split off encoder)
-;;	Renamed: 1997/02/22 from tm-ew-d.el
+;;	Renamed: 1993/06/03 to tiny-mime.el by MORIOKA Tomohiko
+;;	Renamed: 1995/10/03 to tm-ew-d.el (split off encoder)
+;;               by MORIOKA Tomohiko
+;;	Renamed: 1997/02/22 from tm-ew-d.el by MORIOKA Tomohiko
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of FLIM (Faithful Library about Internet Message).
@@ -602,8 +603,9 @@ It is max size of eword-lexical-analyze-cache - 1.")
     eword-analyze-encoded-word
     eword-analyze-atom)
   "*List of functions to return result of lexical analyze.
-Each function must have two arguments: STRING and MUST-UNFOLD.
+Each function must have three arguments: STRING, START and MUST-UNFOLD.
 STRING is the target string to be analyzed.
+START is start position of STRING to analyze.
 If MUST-UNFOLD is not nil, each function must unfold and eliminate
 bare-CR and bare-LF from the result even if they are included in
 content of the encoded-word.
@@ -631,7 +633,7 @@ be the result."
 (defun eword-analyze-domain-literal (string start &optional must-unfold)
   (std11-analyze-domain-literal string start))
 
-(defun eword-parse-comment (string &optional from must-unfold)
+(defun eword-analyze-comment (string from &optional must-unfold)
   (let ((len (length string))
 	(i (or from 0))
 	dest last-str
@@ -672,7 +674,7 @@ be the result."
 			      (1+ i)))
 		 )
 		((eq chr ?\()
-		 (if (setq ret (eword-parse-comment string i must-unfold))
+		 (if (setq ret (eword-analyze-comment string i must-unfold))
 		     (setq last-str
 			   (concat last-str
 				   (substring string from i))
@@ -696,14 +698,6 @@ be the result."
 		 ))
 	  )))))
 
-;; (defun eword-analyze-comment (string start &optional must-unfold)
-;;   (let ((ret (eword-parse-comment string start must-unfold)))
-;;     (if ret
-;;         (cons (car ret)
-;;               (substring string (cdr ret))
-;;               ))))
-(defalias 'eword-analyze-comment 'eword-parse-comment)
-
 (defun eword-analyze-spaces (string start &optional must-unfold)
   (std11-analyze-spaces string start))