From 7bce91858ee6fb373f48aebbfff6bf508f8dbbe8 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 11 Oct 2010 19:57:47 +0200 Subject: [PATCH] (sieve-manage-open): Allow port names as well as port numbers. From Michael Welsh Duggan (tiny change) --- lisp/ChangeLog | 5 +++++ lisp/sieve-manage.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d37a7ed7e..b8497da98 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-11 Michael Welsh Duggan (tiny change) + + * sieve-manage.el (sieve-manage-open): Allow port names as well as port + numbers. + 2010-10-11 Lars Magne Ingebrigtsen * gnus-topic.el (gnus-topic-read-group): If after the last group, diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el index c542632a5..3d04a5a93 100644 --- a/lisp/sieve-manage.el +++ b/lisp/sieve-manage.el @@ -150,7 +150,7 @@ for doing the actual authentication." :group 'sieve-manage) (defcustom sieve-manage-default-port 2000 - "Default port number for managesieve protocol." + "Default port number or service name for managesieve protocol." :type 'integer :group 'sieve-manage) @@ -389,7 +389,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 sieve-manage-default-port)))) + (setq buffer (or buffer (format " *sieve* %s:%s" 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