Lines Matching defs:key
85 (defun canlock-make-cancel-key (message-id password)
124 (defun canlock-fetch-fields (&optional key)
128 (let ((field (mail-fetch-field (if key "Cancel-Key" "Cancel-Lock")))
138 (defun canlock-fetch-id-for-key ()
151 (defun canlock-insert-header (&optional id-for-key id-for-lock password)
153 (let (news control key-for-key key-for-lock)
159 (unless id-for-key
160 (setq id-for-key (canlock-fetch-id-for-key)))
170 (if (not (or id-for-key id-for-lock))
178 (setq key-for-key (when id-for-key
179 (canlock-make-cancel-key
180 id-for-key password))
181 key-for-lock (when id-for-lock
182 (canlock-make-cancel-key
184 (if (not (or key-for-key key-for-lock))
186 (when key-for-key
187 (insert "Cancel-Key: sha1:" key-for-key "\n"))
188 (when key-for-lock
190 (base64-encode-string (canlock-sha1 key-for-lock))
199 (let (keys locks errmsg id-for-key id-for-lock password
200 key-for-key key-for-lock match)
207 (setq keys (canlock-fetch-fields 'key)
212 (setq id-for-key (canlock-fetch-id-for-key)
214 (or id-for-key id-for-lock
223 (when id-for-key
224 (setq key-for-key (canlock-make-cancel-key id-for-key password))
226 (setq match (string-equal key-for-key (pop keys)))))
231 (setq key-for-lock
233 (canlock-sha1 (canlock-make-cancel-key id-for-lock
236 (setq match (string-equal key-for-lock (pop locks)))))