# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1191498841 0
# Node ID 8e5644592b67b35d2b87948740eb31ce87aeff41
# Parent  0d62f6d35184693f5996aba7bb331050edd7802a
(sieve-manage-interactive-login): Doc fix.
(sieve-manage-open): Use `mapc' instead of `mapcar'.

diff -r 0d62f6d35184 -r 8e5644592b67 lisp/gnus/sieve-manage.el
--- a/lisp/gnus/sieve-manage.el	Thu Oct 04 11:25:29 2007 +0000
+++ b/lisp/gnus/sieve-manage.el	Thu Oct 04 11:54:01 2007 +0000
@@ -183,7 +183,7 @@
 (defun sieve-manage-interactive-login (buffer loginfunc)
   "Login to server in BUFFER.
 LOGINFUNC is passed a username and a password, it should return t if
-it where sucessful authenticating itself to the server, nil otherwise.
+it was successful authenticating itself to the server, nil otherwise.
 Returns t if login was successful, nil otherwise."
   (with-current-buffer buffer
     (make-local-variable 'sieve-manage-username)
@@ -372,7 +372,7 @@
 to work in."
   (setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000))))
   (with-current-buffer (get-buffer-create buffer)
-    (mapcar 'make-local-variable sieve-manage-local-variables)
+    (mapc 'make-local-variable sieve-manage-local-variables)
     (sieve-manage-disable-multibyte)
     (buffer-disable-undo)
     (setq sieve-manage-server (or server sieve-manage-server))