From: yoichi <yoichi>
Date: Tue, 8 Jun 2004 15:44:19 +0000 (+0000)
Subject: * std11.el (std11-parse-word-or-comment-or-period): Renamed from
X-Git-Tag: flim-1_14_7~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=623048a02c4c30b1d5f953209bd17899fe438f94;p=elisp%2Fflim.git

* std11.el (std11-parse-word-or-comment-or-period): Renamed from
`std11-parse-word-or-comment' and allow period.
(std11-parse-phrase): Allow parsing obs-phrase in rfc2822.
---

diff --git a/ChangeLog b/ChangeLog
index c392459..af55594 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-09  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* std11.el (std11-parse-word-or-comment-or-period): Renamed from
+	`std11-parse-word-or-comment' and allow period.
+	(std11-parse-phrase): Allow parsing obs-phrase in rfc2822.
+
 2004-05-24  Len Trigg  <lenbok@myrealbox.com>
 
 	* mime-conf.el (mime-format-mailcap-command): Quote a file name
diff --git a/std11.el b/std11.el
index 9227ad0..47ee9bb 100644
--- a/std11.el
+++ b/std11.el
@@ -481,7 +481,7 @@ be the result."
 	      (cons (cons 'word elt) rest)
 	    )))))
 
-(defun std11-parse-word-or-comment (lal)
+(defun std11-parse-word-or-comment-or-period (lal)
   (let ((ret (std11-parse-token-or-comment lal)))
     (if ret
 	(let ((elt (car ret))
@@ -493,12 +493,15 @@ be the result."
 		 )
 		((assq 'comment elt)
 		 (cons (cons 'comment-word elt) rest)
+		 )
+		((string-equal (cdr (assq 'specials elt)) ".")
+		 (cons (cons 'period elt) rest)
 		 ))
 	  ))))
 
 (defun std11-parse-phrase (lal)
   (let (ret phrase)
-    (while (setq ret (std11-parse-word-or-comment lal))
+    (while (setq ret (std11-parse-word-or-comment-or-period lal))
       (setq phrase (append phrase (cdr (car ret))))
       (setq lal (cdr ret))
       )