X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fsasl.el;h=7f864390a52ffdac9b4d701ececf40c5312b0ffe;hb=b2d105db1597d0954f8a6b3522329682527b9fff;hp=23d8e622751a8648d4a18c3bce3b81bed1b3101d;hpb=8b5af94e55ef83ee46b42d32d92fa1ce95dcacf5;p=gnus diff --git a/lisp/sasl.el b/lisp/sasl.el index 23d8e6227..7f864390a 100644 --- a/lisp/sasl.el +++ b/lisp/sasl.el @@ -1,6 +1,6 @@ ;;; sasl.el --- SASL client framework -;; Copyright (C) 2000, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Daiki Ueno ;; Keywords: SASL @@ -86,7 +86,7 @@ The second argument PLIST is the new property list." (setplist (aref client 4) plist)) (defun sasl-client-set-property (client property value) - "Add the given property/value to CLIENT." + "Add the given PROPERTY/VALUE to CLIENT." (put (aref client 4) property value)) (defun sasl-client-property (client property) @@ -103,7 +103,7 @@ The second argument PLIST is the new property list." (defun sasl-make-mechanism (name steps) "Make an authentication mechanism. NAME is a IANA registered SASL mechanism name. -STEPS is list of continuation function." +STEPS is list of continuation functions." (vector name (mapcar (lambda (step) @@ -121,7 +121,7 @@ STEPS is list of continuation function." (aref mechanism 1)) (defun sasl-find-mechanism (mechanisms) - "Retrieve an apropriate mechanism object from MECHANISMS hints." + "Retrieve an appropriate mechanism object from MECHANISMS hints." (let* ((sasl-mechanisms sasl-mechanisms) (mechanism (catch 'done @@ -147,9 +147,9 @@ STEPS is list of continuation function." (defun sasl-next-step (client step) "Evaluate the challenge and prepare an appropriate next response. -The data type of the value and optional 2nd argument STEP is nil or -opaque authentication step which holds the reference to the next action -and the current challenge. At the first time STEP should be set to nil." +The data type of the value and 2nd argument STEP is nil or opaque +authentication step which holds the reference to the next action and +the current challenge. At the first time STEP should be set to nil." (let* ((steps (sasl-mechanism-steps (sasl-client-mechanism client))) @@ -267,5 +267,4 @@ It contain at least 64 bits of entropy." (provide 'sasl) -;; arch-tag: 8b3326fa-4978-4fda-93e2-cb2c6255f887 ;;; sasl.el ends here