From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/42361 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: Minimum emacs version for Oort Date: Mon, 21 Jan 2002 16:33:02 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1; format=flowed Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035177610 10900 80.91.224.250 (21 Oct 2002 05:20:10 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 05:20:10 +0000 (UTC) Cc: Paul Stevenson , ding@gnus.org Return-Path: Original-Received: (qmail 14057 invoked from network); 21 Jan 2002 15:36:42 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 21 Jan 2002 15:36:42 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 16SgTl-0004bw-00; Mon, 21 Jan 2002 09:35:25 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 21 Jan 2002 09:35:18 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id JAA29179 for ; Mon, 21 Jan 2002 09:35:04 -0600 (CST) Original-Received: (qmail 14033 invoked by alias); 21 Jan 2002 15:35:03 -0000 Original-Received: (qmail 14028 invoked from network); 21 Jan 2002 15:35:02 -0000 Original-Received: from 178.230.13.217.in-addr.dgcsystems.net (HELO yxa.extundo.com) (217.13.230.178) by gnus.org with SMTP; 21 Jan 2002 15:35:02 -0000 Original-Received: from localhost.localdomain (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.2/8.12.2) with ESMTP id g0LFYgle018317; Mon, 21 Jan 2002 16:34:43 +0100 Original-To: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai =?iso-8859-1?q?Gro=DFjohann?=) In-Reply-To: (Kai.Grossjohann@CS.Uni-Dortmund.DE's message of "Mon, 21 Jan 2002 15:36:49 +0100") Mail-Copies-To: nobody X-Face: "Iw}A^8>+/ALsOu?I}ER%AzH:}9&"BGF|"~k^~b;KZtT0I(_4oP;A#@2?hw>/VOO!im:E7\ >vUP!!D[H"^F4`|Oo;[5.iS&?ha|[4T7-W^P Q)DsW7{nV&qpP3Q6O]mT|82eb\&V9;GW&Oh5W_ywy?UW9Npc8<;q2{}&[PO}6{k1oEA>{U$hTr@R$J *{9qd,qV: Simon Josefsson writes: > >> No. Does your emacs have `base64-encode-region'? As a >> workaround put gnus/contrib in your load path. > > The base64.el there does not have base64-encode-string, so that won't help. Oops. Paul, does the following patch work? --- canlock.el.~6.5.~ Wed Jan 9 16:25:50 2002 +++ canlock.el Mon Jan 21 16:32:48 2002 @@ -103,6 +103,18 @@ (list 'string-as-unibyte string) string))) +(defun canlock-base64-encode-string (string &optional no-line-break) + (save-excursion + (set-buffer (get-buffer-create " *base64-encode*")) + (erase-buffer) + (insert string) + (base64-encode-region (point-min) (point-max) no-line-break) + (skip-chars-backward " \t\r\n") + (delete-region (point-max) (point)) + (prog1 + (buffer-string) + (kill-buffer (current-buffer))))) + (defun canlock-sha1-with-openssl (message) "Make a SHA-1 digest of MESSAGE using OpenSSL." (let (default-enable-multibyte-characters) @@ -153,7 +165,7 @@ (opad (mapconcat (lambda (char) (char-to-string (logxor 92 char))) password ""))) - (base64-encode-string + (canlock-base64-encode-string (funcall canlock-sha1-function (concat opad @@ -250,8 +262,8 @@ (insert "Cancel-Key: sha1:" key-for-key "\n")) (when key-for-lock (insert "Cancel-Lock: sha1:" - (base64-encode-string (funcall canlock-sha1-function - key-for-lock)) + (canlock-base64-encode-string + (funcall canlock-sha1-function key-for-lock)) "\n"))))))))) ;;;###autoload @@ -307,8 +319,8 @@ (when locks (when id-for-lock (setq key-for-lock - (base64-encode-string (funcall canlock-sha1-function - (canlock-make-cancel-key + (canlock-base64-encode-string + (funcall canlock-sha1-function (canlock-make-cancel-key id-for-lock password)))) (when (and locks (not match)) (setq match (string-equal key-for-lock (pop locks)))))