From ba49e728c5e45243ca1c20fa432fde152c3491e2 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 6 Oct 2010 15:25:55 +0200 Subject: [PATCH] sieve-manage-open: Use sieve-manage-default-port Signed-off-by: Julien Danjou --- lisp/ChangeLog | 5 +++++ lisp/sieve-manage.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d00534525..b3ed72849 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-06 Julien Danjou + + * sieve-manage.el (sieve-manage-open): Use sieve-manage-default-port, + not 2000. + 2010-10-06 Lars Magne Ingebrigtsen * shr.el (shr-insert): Get 'space transition right. diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el index 370a53d4a..574f3197b 100644 --- a/lisp/sieve-manage.el +++ b/lisp/sieve-manage.el @@ -387,7 +387,7 @@ Optional argument AUTH indicates authenticator to use, see If nil, chooses the best stream the server is capable of. Optional argument BUFFER is buffer (buffer, or string naming buffer) to work in." - (setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000)))) + (setq buffer (or buffer (format " *sieve* %s:%d" server (or port sieve-manage-default-port)))) (with-current-buffer (get-buffer-create buffer) (mapc 'make-local-variable sieve-manage-local-variables) (sieve-manage-disable-multibyte) -- 2.25.1