(sieve-manage-interactive-login): Doc fix.

(sieve-manage-open): Use `mapc' instead of `mapcar'.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4e91a74b66a5f8e73cf59293ff34c145946be28e..b92df11778bd679a98bcf42f0529fc1802ce46c9 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-04  Juanma Barranquero  <lekktu@gmail.com>
+
+       * sieve-manage.el (sieve-manage-interactive-login): Doc fix.
+       (sieve-manage-open): Use `mapc' instead of `mapcar'.
+
 2007-10-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * gnus-uu.el (gnus-uu-reginize-string, gnus-uu-expand-numbers):

diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el
index e33e5d87ca6290a4d4f25ef33dbb27f3693794a6..2f0e54a234b634255b947f8e7648525eb40b883a 100644 (file)
--- a/lisp/gnus/sieve-manage.el
+++ b/lisp/gnus/sieve-manage.el
@@ -183,7 +183,7 @@ Valid states are `closed', `initial', `nonauth', and `auth'.")
 (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 @@ Optional variable BUFFER is buffer (buffer, or string naming buffer)
 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))