annotate lisp/net/sasl-digest.el @ 100048:d872c709fff2

* emacs-lisp/re-builder.el (reb-mode-map): Fix typo in menu tooltip. (reb-mode): Define with `define-derived-mode'.
author Juanma Barranquero <lekktu@gmail.com>
date Sat, 29 Nov 2008 20:25:54 +0000
parents 91e5880a36c1
children a9dc0e7c3f2b
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
87665
b9e8ab94c460 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 86995
diff changeset
3 ;; Copyright (C) 2000, 2007, 2008 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
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
8
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
10
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
11 ;; 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
12 ;; 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
13 ;; 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
14 ;; (at your option) any later version.
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
15
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
16 ;; 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
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
20
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
21 ;; 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
22 ;; 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
23
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
25
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
26 ;; This program is implemented from draft-leach-digest-sasl-05.txt.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
27 ;;
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
28 ;; It is caller's responsibility to base64-decode challenges and
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
29 ;; base64-encode responses in IMAP4 AUTHENTICATE command.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
30 ;;
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
31 ;; Passphrase should be longer than 16 bytes. (See RFC 2195)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
32
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
33 ;;; Commentary:
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
34
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
35 (require 'sasl)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
36 (require 'hmac-md5)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
37
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
38 (defvar sasl-digest-md5-nonce-count 1)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
39 (defvar sasl-digest-md5-unique-id-function
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
40 sasl-unique-id-function)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
41
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
42 (defvar sasl-digest-md5-syntax-table
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
43 (let ((table (make-syntax-table)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
44 (modify-syntax-entry ?= "." 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 table)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
47 "A syntax table for parsing digest-challenge attributes.")
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
48
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
49 (defconst sasl-digest-md5-steps
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
50 '(ignore ;no initial response
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
51 sasl-digest-md5-response
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
52 ignore)) ;""
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
53
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
54 (defun sasl-digest-md5-parse-string (string)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
55 "Parse STRING and return a property list.
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
56 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
57 charset algorithm cipher-opts auth-param)."
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
58 (with-temp-buffer
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
59 (set-syntax-table sasl-digest-md5-syntax-table)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
60 (save-excursion
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
61 (insert string)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
62 (goto-char (point-min))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
63 (insert "(")
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
64 (while (progn (forward-sexp) (not (eobp)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
65 (delete-char 1)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
66 (insert " "))
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 (read (point-min-marker)))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
69
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
70 (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
71 (concat serv-type "/" host
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
72 (if (and serv-name
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
73 (not (string= host serv-name)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
74 (concat "/" serv-name))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
75
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
76 (defun sasl-digest-md5-cnonce ()
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
77 (let ((sasl-unique-id-function sasl-digest-md5-unique-id-function))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
78 (sasl-unique-id)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
79
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
80 (defun sasl-digest-md5-response-value (username
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
81 realm
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
82 nonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
83 cnonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
84 nonce-count
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
85 qop
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
86 digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
87 authzid)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
88 (let ((passphrase
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
89 (sasl-read-passphrase
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
90 (format "DIGEST-MD5 passphrase for %s: "
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
91 username))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
92 (unwind-protect
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
93 (encode-hex-string
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
94 (md5-binary
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
95 (concat
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
96 (encode-hex-string
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
97 (md5-binary (concat (md5-binary
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
98 (concat username ":" realm ":" passphrase))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
99 ":" nonce ":" cnonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
100 (if authzid
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
101 (concat ":" authzid)))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
102 ":" nonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
103 ":" (format "%08x" nonce-count) ":" cnonce ":" qop ":"
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
104 (encode-hex-string
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
105 (md5-binary
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
106 (concat "AUTHENTICATE:" digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
107 (if (member qop '("auth-int" "auth-conf"))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
108 ":00000000000000000000000000000000")))))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
109 (fillarray passphrase 0))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
110
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
111 (defun sasl-digest-md5-response (client step)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
112 (let* ((plist
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
113 (sasl-digest-md5-parse-string (sasl-step-data step)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
114 (realm
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
115 (or (sasl-client-property client 'realm)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
116 (plist-get plist 'realm))) ;need to check
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
117 (nonce-count
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
118 (or (sasl-client-property client 'nonce-count)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
119 sasl-digest-md5-nonce-count))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
120 (qop
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
121 (or (sasl-client-property client 'qop)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
122 "auth"))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
123 (digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
124 (sasl-digest-md5-digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
125 (sasl-client-service client)(sasl-client-server client)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
126 (cnonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
127 (or (sasl-client-property client 'cnonce)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
128 (sasl-digest-md5-cnonce))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
129 (sasl-client-set-property client 'nonce-count (1+ nonce-count))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
130 (unless (string= qop "auth")
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
131 (sasl-error (format "Unsupported \"qop-value\": %s" qop)))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
132 (concat
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
133 "username=\"" (sasl-client-name client) "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
134 "realm=\"" realm "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
135 "nonce=\"" (plist-get plist 'nonce) "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
136 "cnonce=\"" cnonce "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
137 (format "nc=%08x," nonce-count)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
138 "digest-uri=\"" digest-uri "\","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
139 "qop=" qop ","
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
140 "response="
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
141 (sasl-digest-md5-response-value
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
142 (sasl-client-name client)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
143 realm
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
144 (plist-get plist 'nonce)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
145 cnonce
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
146 nonce-count
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
147 qop
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
148 digest-uri
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
149 (plist-get plist 'authzid)))))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
150
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
151 (put 'sasl-digest 'sasl-mechanism
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
152 (sasl-make-mechanism "DIGEST-MD5" sasl-digest-md5-steps))
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
153
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
154 (provide 'sasl-digest)
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
155
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87665
diff changeset
156 ;; arch-tag: 786e02ed-1bc4-4b3c-bf34-96c27e31084d
86995
48cbca68cab3 Move here from ../gnus.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
157 ;;; sasl-digest.el ends here