From b98befba14c4f25b58d2ab56d02840d477735de6 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 5 Nov 2000 06:13:23 +0000 Subject: [PATCH] (sasl-step-data): Don't typecheck. (sasl-step-set-data): Ditto. --- sasl.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/sasl.el b/sasl.el index 3d884e5..cb2c706 100644 --- a/sasl.el +++ b/sasl.el @@ -138,14 +138,11 @@ STEPS is list of continuation function." (defun sasl-step-data (step) "Return the data which STEP holds, a string." - (if (vectorp step) - (aref step 1))) + (aref step 1)) (defun sasl-step-set-data (step data) "Store DATA string to STEP." - (if (vectorp step) - (aset step 1 data) - (vector nil data))) + (aset step 1 data)) (defun sasl-next-step (client step) "Evaluate the challenge and prepare an appropriate next response. -- 1.7.10.4