From 411b76c9e7b6ecd73a8aeb291617d307fded4802 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 15 Nov 1995 15:55:20 +0000 Subject: [PATCH] =?utf8?q?=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=20rfc822/pars?= =?utf8?q?e-group=20=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF?= =?utf8?q?=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=20`:'=20=EF=BF=BD=EF=BF=BD=20`co?= =?utf8?q?lon'=20=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF?= =?utf8?q?=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=20=EF=BF=BD=EF=BF=BDXEmacs=20=EF=BF?= =?utf8?q?=BD=EF=BF=BD=20compile=20=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF?= =?utf8?q?=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD?= =?utf8?q?=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF?= =?utf8?q?=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- tl-822.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4