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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b200db3..e5e8d39 100644 (file)
--- 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 (file)
--- 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)