From 623048a02c4c30b1d5f953209bd17899fe438f94 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 8 Jun 2004 15:44:19 +0000 Subject: [PATCH] * 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. --- ChangeLog | 6 ++++++ std11.el | 7 +++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index c392459..af55594 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2004-06-09 Yoichi NAKAYAMA + + * 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 * 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)) ) -- 1.7.10.4