From 20363afa4c8a90b2def290d24ceaff2e4689ec69 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 22 Apr 2000 05:05:20 +0000 Subject: [PATCH] Use PARSE-SUBSTRING. --- v7/src/imail/imail-imap.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm index f5acd8316..1baebb2cf 100644 --- a/v7/src/imail/imail-imap.scm +++ b/v7/src/imail/imail-imap.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: imail-imap.scm,v 1.2 2000/04/18 21:50:35 cph Exp $ +;;; $Id: imail-imap.scm,v 1.3 2000/04/22 05:05:20 cph Exp $ ;;; ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology ;;; @@ -43,11 +43,13 @@ (let ((slash (substring-find-next-char string 2 end))) (if (not slash) (lose)) - (let ((pv1 (imap:parse:server string 0 slash))) - (if (not (and pv1 (fix:= (car pv1) slash))) + (let ((pv1 (parse-substring imap:parse:server string 0 slash))) + (if (not pv1) (lose)) - (let ((pv2 (imap:parse:simple-message string (fix:+ slash 1) end))) - (if (not (and pv2 (fix:= (car pv2) end))) + (let ((pv2 + (parse-substring imap:parse:simple-message + string (fix:+ slash 1) end))) + (if (not pv2) (lose)) (make-imap-url (parser-token pv1 'USER-ID) (parser-token pv1 'AUTH-TYPE) -- 2.25.1