From 6ab3804adce4ceb4120d984cf6fb0da25f1928ef Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 4 Oct 2007 11:56:15 +0000 Subject: [PATCH] (sieve-manage-interactive-login): Doc fix. (sieve-manage-open): Use `mapc' instead of `mapcar'. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/sieve-manage.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4e91a74b66a..b92df11778b 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2007-10-04 Juanma Barranquero + + * sieve-manage.el (sieve-manage-interactive-login): Doc fix. + (sieve-manage-open): Use `mapc' instead of `mapcar'. + 2007-10-02 Stefan Monnier * 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 e33e5d87ca6..2f0e54a234b 100644 --- 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)) -- 2.39.5