Mercurial > emacs

annotate lisp/net/sasl-digest.el @ 112169:882d6cbb91a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweaks to tool-bar for default, VC-dir, Compile, and Info. * tool-bar.el (tool-bar-setup): Remove Help button. Remove label from Search and add a label to Undo. * vc/vc-dir.el (vc-dir-tool-bar-map): Rearrange, removing inappropriate buttons and adding :vert-only tags. * progmodes/compile.el (compilation-mode-tool-bar-map): Adjust to removal of Help tool-bar button. Remove Undo button for space. * info.el (info-tool-bar-map): Add :vert-only tags.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 08 Jan 2011 23:13:47 -0500 (2011-01-09)
parents 5b9f64b04a04
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
1 ;;; sasl-digest.el --- DIGEST-MD5 module for the SASL client framework
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
2
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
3 ;; Copyright (C) 2000, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
4
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
5 ;; Author: Daiki Ueno <ueno@unixuser.org>
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
6 ;; Kenichi OKADA <okada@opaopa.org>
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
7 ;; Keywords: SASL, DIGEST-MD5
110015
280c8ae2476d Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
8 ;; Package: sasl
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
9
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
11
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
14 ;; the Free Software Foundation, either version 3 of the License, or
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
15 ;; (at your option) any later version.
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
16
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
21
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
24
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
26
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
27 ;; This program is implemented from draft-leach-digest-sasl-05.txt.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
28 ;;
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
29 ;; It is caller's responsibility to base64-decode challenges and
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
30 ;; base64-encode responses in IMAP4 AUTHENTICATE command.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
31 ;;
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
32 ;; Passphrase should be longer than 16 bytes. (See RFC 2195)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
33
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
34 ;;; Commentary:
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
35
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
36 (require 'sasl)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
37 (require 'hmac-md5)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
38
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
39 (defvar sasl-digest-md5-nonce-count 1)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
40 (defvar sasl-digest-md5-unique-id-function
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
41 sasl-unique-id-function)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
42
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
43 (defvar sasl-digest-md5-syntax-table
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
44 (let ((table (make-syntax-table)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
45 (modify-syntax-entry ?= "." table)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
46 (modify-syntax-entry ?, "." table)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
47 table)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
48 "A syntax table for parsing digest-challenge attributes.")
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
49
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
50 (defconst sasl-digest-md5-steps
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
51 '(ignore ;no initial response
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
52 sasl-digest-md5-response
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
53 ignore)) ;""
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
54
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
55 (defun sasl-digest-md5-parse-string (string)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
56 "Parse STRING and return a property list.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
57 The value is a cons cell of the form \(realm nonce qop-options stale maxbuf
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
58 charset algorithm cipher-opts auth-param)."
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
59 (with-temp-buffer
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
60 (set-syntax-table sasl-digest-md5-syntax-table)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
61 (save-excursion
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
62 (insert string)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
63 (goto-char (point-min))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
64 (insert "(")
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
65 (while (progn (forward-sexp) (not (eobp)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
66 (delete-char 1)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
67 (insert " "))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
68 (insert ")")
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
69 (read (point-min-marker)))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
70
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
71 (defun sasl-digest-md5-digest-uri (serv-type host &optional serv-name)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
72 (concat serv-type "/" host
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
73 (if (and serv-name
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
74 (not (string= host serv-name)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
75 (concat "/" serv-name))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
76
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
77 (defun sasl-digest-md5-cnonce ()
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
78 (let ((sasl-unique-id-function sasl-digest-md5-unique-id-function))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
79 (sasl-unique-id)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
80
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
81 (defun sasl-digest-md5-response-value (username
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
82 realm
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
83 nonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
84 cnonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
85 nonce-count
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
86 qop
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
87 digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
88 authzid)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
89 (let ((passphrase
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
90 (sasl-read-passphrase
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
91 (format "DIGEST-MD5 passphrase for %s: "
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
92 username))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
93 (unwind-protect
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
94 (encode-hex-string
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
95 (md5-binary
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
96 (concat
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
97 (encode-hex-string
110111
5b9f64b04a04 Delete all trailing white space.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 110102
diff changeset
98 (md5-binary (concat (md5-binary
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
99 (concat username ":" realm ":" passphrase))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
100 ":" nonce ":" cnonce
110111
5b9f64b04a04 Delete all trailing white space.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 110102
diff changeset
101 (if authzid
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
102 (concat ":" authzid)))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
103 ":" nonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
104 ":" (format "%08x" nonce-count) ":" cnonce ":" qop ":"
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
105 (encode-hex-string
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
106 (md5-binary
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
107 (concat "AUTHENTICATE:" digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
108 (if (member qop '("auth-int" "auth-conf"))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
109 ":00000000000000000000000000000000")))))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
110 (fillarray passphrase 0))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
111
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
112 (defun sasl-digest-md5-response (client step)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
113 (let* ((plist
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
114 (sasl-digest-md5-parse-string (sasl-step-data step)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
115 (realm
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
116 (or (sasl-client-property client 'realm)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
117 (plist-get plist 'realm))) ;need to check
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
118 (nonce-count
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
119 (or (sasl-client-property client 'nonce-count)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
120 sasl-digest-md5-nonce-count))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
121 (qop
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
122 (or (sasl-client-property client 'qop)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
123 "auth"))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
124 (digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
125 (sasl-digest-md5-digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
126 (sasl-client-service client)(sasl-client-server client)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
127 (cnonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
128 (or (sasl-client-property client 'cnonce)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
129 (sasl-digest-md5-cnonce))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
130 (sasl-client-set-property client 'nonce-count (1+ nonce-count))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
131 (unless (string= qop "auth")
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
132 (sasl-error (format "Unsupported \"qop-value\": %s" qop)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
133 (concat
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
134 "username=\"" (sasl-client-name client) "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
135 "realm=\"" realm "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
136 "nonce=\"" (plist-get plist 'nonce) "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
137 "cnonce=\"" cnonce "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
138 (format "nc=%08x," nonce-count)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
139 "digest-uri=\"" digest-uri "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
140 "qop=" qop ","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
141 "response="
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
142 (sasl-digest-md5-response-value
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
143 (sasl-client-name client)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
144 realm
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
145 (plist-get plist 'nonce)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
146 cnonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
147 nonce-count
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
148 qop
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
149 digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
150 (plist-get plist 'authzid)))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
151
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
152 (put 'sasl-digest 'sasl-mechanism
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
153 (sasl-make-mechanism "DIGEST-MD5" sasl-digest-md5-steps))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
154
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
155 (provide 'sasl-digest)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
156
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
157 ;;; sasl-digest.el ends here