From: yamaoka <yamaoka>
Date: Wed, 26 Dec 2001 01:53:49 +0000 (+0000)
Subject: I have a write permission to Gnus CVS (cvs.gnus.org) now!
X-Git-Tag: t-gnus-6_15_4-09-quimby-last-~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d7e9ba01a4e4c3c8aece9e5f910e9bd71d5b8a87;p=elisp%2Fgnus.git-

I have a write permission to Gnus CVS (cvs.gnus.org) now!
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b200db3..e5e8d39 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* canlock.el (canlock-sha1-with-openssl): Remove unused variable.
+
 2001-12-22 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus-group.el (gnus-group-read-ephemeral-group): Call
diff --git a/lisp/canlock.el b/lisp/canlock.el
index f24a88e..9b8dfb6 100644
--- a/lisp/canlock.el
+++ b/lisp/canlock.el
@@ -1,4 +1,4 @@
-;;; canlock.el --- Functions for Cancel-Lock feature
+;;; canlock.el --- functions for Cancel-Lock feature
 ;; Copyright (C) 1998, 1999, 2001 Free Software Foundation, Inc.
 
 ;; Author: Katsumi Yamaoka <yamaoka@jpl.org>
@@ -102,8 +102,7 @@ buffer does not look like a news message."
       (let ((coding-system-for-read 'binary)
 	    (coding-system-for-write 'binary)
 	    selective-display
-	    (case-fold-search t)
-	    (str ""))
+	    (case-fold-search t))
 	(insert message)
 	(apply 'call-process-region (point-min) (point-max)
 	       canlock-openssl-program t t nil canlock-openssl-args)