From: morioka <morioka>
Date: Wed, 15 Nov 1995 15:55:20 +0000 (+0000)
Subject: ���� rfc822/parse-group ���������� `:' �� `colon' ����������
X-Git-Tag: XEmacs-20_3-b27-viet~138
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=411b76c9e7b6ecd73a8aeb291617d307fded4802;p=elisp%2Fmu-cite.git

���� rfc822/parse-group ���������� `:' �� `colon' ����������
��XEmacs �� compile ������������������������
---

diff --git a/tl-822.el b/tl-822.el
index 2821596..d830532 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -15,7 +15,7 @@
 
 
 (defconst rfc822/RCS-ID
-  "$Id: tl-822.el,v 5.0 1995-11-11 12:48:59 morioka Exp $")
+  "$Id: tl-822.el,v 6.0 1995-11-15 15:55:20 morioka Exp $")
 (defconst rfc822/version (get-version-string rfc822/RCS-ID))
 
 
@@ -522,13 +522,13 @@
 
 (defun rfc822/parse-group (lal)
   (let ((ret (rfc822/parse-phrase lal))
-	phrase : comma mbox semicolon)
+	phrase colon mbox semicolon)
     (if (and ret
 	     (setq phrase (cdr (car ret)))
 	     (setq lal (cdr ret))
 	     (setq ret (rfc822/parse-token lal))
-	     (setq : (car ret))
-	     (equal (cdr (assq 'specials :)) ":")
+	     (setq colon (car ret))
+	     (equal (cdr (assq 'specials colon)) ":")
 	     (setq lal (cdr ret))
 	     (progn
 	       (and (setq ret (rfc822/parse-mailbox lal))