projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix again
[gnus]
/
lisp
/
sasl-ntlm.el
diff --git
a/lisp/sasl-ntlm.el
b/lisp/sasl-ntlm.el
index
6554ee3
..
487a1d0
100644
(file)
--- a/
lisp/sasl-ntlm.el
+++ b/
lisp/sasl-ntlm.el
@@
-1,26
+1,27
@@
;;; sasl-ntlm.el --- NTLM (NT Lan Manager) module for the SASL client framework
;;; sasl-ntlm.el --- NTLM (NT Lan Manager) module for the SASL client framework
-;; Copyright (C) 2000 Free Software Foundation, Inc.
+;; Copyright (C) 2000
, 2007-2013
Free Software Foundation, Inc.
;; Author: Taro Kawagishi <tarok@transpulse.org>
;; Keywords: SASL, NTLM
;; Version: 1.00
;; Created: February 2001
;; Author: Taro Kawagishi <tarok@transpulse.org>
;; Keywords: SASL, NTLM
;; Version: 1.00
;; Created: February 2001
+;; Package: sasl
-;; This program is free software; you can redistribute it and/or modify
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation
; either version 2, or (at your option)
-;; any later version.
-;;
-;;
This program
is distributed in the hope that it will be useful,
+;; the Free Software Foundation
, either version 3 of the License, or
+;;
(at your option)
any later version.
+
+;;
GNU Emacs
is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
-;;
+
;; You should have received a copy of the GNU General Public License
;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Commentary:
@@
-36,12
+37,12
@@
'(ignore ;nothing to do before making
sasl-ntlm-request ;authentication request
sasl-ntlm-response) ;response to challenge
'(ignore ;nothing to do before making
sasl-ntlm-request ;authentication request
sasl-ntlm-response) ;response to challenge
- "A list of functions to be called in sequ
ne
ce for the NTLM
-authentication steps. The
r are called by 'sasl-next-step
.")
+ "A list of functions to be called in sequ
en
ce for the NTLM
+authentication steps. The
y are called by `sasl-next-step'
.")
(defun sasl-ntlm-request (client step)
"SASL step function to generate a NTLM authentication request to the server.
(defun sasl-ntlm-request (client step)
"SASL step function to generate a NTLM authentication request to the server.
-Called from
'sasl-next-step
.
+Called from
`sasl-next-step'
.
CLIENT is a vector [mechanism user service server sasl-client-properties]
STEP is a vector [<previous step function> <result of previous step function>]"
(let ((user (sasl-client-name client)))
CLIENT is a vector [mechanism user service server sasl-client-properties]
STEP is a vector [<previous step function> <result of previous step function>]"
(let ((user (sasl-client-name client)))
@@
-49,7
+50,7
@@
STEP is a vector [<previous step function> <result of previous step function>]"
(defun sasl-ntlm-response (client step)
"SASL step function to generate a NTLM response against the server
(defun sasl-ntlm-response (client step)
"SASL step function to generate a NTLM response against the server
-challenge stored in the 2nd element of STEP. Called from
'sasl-next-step
."
+challenge stored in the 2nd element of STEP. Called from
`sasl-next-step'
."
(let* ((user (sasl-client-name client))
(passphrase
(sasl-read-passphrase (format "NTLM passphrase for %s: " user)))
(let* ((user (sasl-client-name client))
(passphrase
(sasl-read-passphrase (format "NTLM passphrase for %s: " user)))
@@
-62,5
+63,4
@@
challenge stored in the 2nd element of STEP. Called from 'sasl-next-step."
(provide 'sasl-ntlm)
(provide 'sasl-ntlm)
-;;; arch-tag: 1d9164c1-1df0-418f-b7ab-360157fd05dc
;;; sasl-ntlm.el ends here
;;; sasl-ntlm.el ends here