From 7c128c209d06f700fda15195ce12a24b443fc53d Mon Sep 17 00:00:00 2001
From: Simon Josefsson <jas@extundo.com>
Date: Tue, 21 May 2002 21:29:11 +0000
Subject: [PATCH] * sieve-mode.el (sieve-manage): Fix autoloads.

* sieve-manage.el (sieve-manage-cram-md5-auth): Just send the SASL
name (makes it work with recent Cyrus timsieved).
---
 lisp/ChangeLog       | 7 +++++++
 lisp/sieve-manage.el | 4 ++--
 lisp/sieve-mode.el   | 6 +++---
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 565e8f3ac..18cee74fe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-05-21  Simon Josefsson  <jas@extundo.com>
+
+	* sieve-mode.el (sieve-manage): Fix autoloads.
+
+	* sieve-manage.el (sieve-manage-cram-md5-auth): Just send the SASL
+	name (makes it work with recent Cyrus timsieved).
+
 2002-05-20  Jason  <jbaker@cs.utah.edu>
 
 	* gnus-art.el (gnus-request-article-this-buffer): Try
diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index 0b5772efe..00b3ace0e 100644
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -65,7 +65,7 @@
 ;;
 ;; 2001-10-31 Committed to Oort Gnus.
 ;;
-;; $Id: sieve-manage.el,v 6.3 2001/11/28 16:52:53 zsh Exp $
+;; $Id: sieve-manage.el,v 6.4 2002/02/20 00:15:33 yamaoka Exp $
 
 ;;; Code:
 
@@ -341,7 +341,7 @@ Returns t if login was successful, nil otherwise."
   (let* ((done (sieve-manage-interactive-login
 		buffer
 		(lambda (user passwd)
-		  (sieve-manage-send "AUTHENTICATE \"CRAM-MD5\" \"\"")
+		  (sieve-manage-send "AUTHENTICATE \"CRAM-MD5\"")
 		  (sieve-manage-send
 		   (concat
 		    "\""
diff --git a/lisp/sieve-mode.el b/lisp/sieve-mode.el
index 926ed049a..4c3cf5832 100644
--- a/lisp/sieve-mode.el
+++ b/lisp/sieve-mode.el
@@ -45,12 +45,12 @@
 ;;                        added keymap and menubar to hook into sieve-manage
 ;; 2001-10-31 version 1.2 committed to Oort Gnus
 ;;
-;; $Id: sieve-mode.el,v 6.2 2001/11/07 22:50:17 jas Exp $
+;; $Id: sieve-mode.el,v 6.3 2002/02/20 00:15:33 yamaoka Exp $
 
 ;;; Code:
 
-(autoload 'sieve-manage "sieve-manage")
-(autoload 'sieve-upload "sieve-manage")
+(autoload 'sieve-manage "sieve")
+(autoload 'sieve-upload "sieve")
 (require 'easymenu)
 (eval-when-compile
   (require 'font-lock))
-- 
2.25.1