lisp/gnus/sieve-manage.el (sieve-manage-authenticator-alist): Update the sieve port...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7a6856a784a9ec21ebc400caae6c17703cc6cdc2..b4d3627d71183bac05077e879a798e3c3d252d01 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -3,6 +3,11 @@
        * gnus.el (gnus-list-debbugs):
        Use require rather than autoload.  (Bug#14262)
 
+2013-04-27  Julien Danjou  <julien@danjou.info>
+
+       * sieve-manage.el (sieve-manage-authenticator-alist): Update the sieve
+       port to "sieve" now that it has an official IANA port assigned.
+
 2013-04-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mail-source.el (mail-source-fetch-pop, mail-source-check-pop):

diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el
index 22c1f7036bfdc043fe843298b31a9d6e1c04bcc8..b96261764e53811ccb2caa767560dfb5b77498f0 100644 (file)
--- a/lisp/gnus/sieve-manage.el
+++ b/lisp/gnus/sieve-manage.el
@@ -149,9 +149,10 @@ the server support the authenticator and AUTHENTICATE is a function
 for doing the actual authentication."
   :group 'sieve-manage)
 
-(defcustom sieve-manage-default-port 2000
+(defcustom sieve-manage-default-port "sieve"
   "Default port number or service name for managesieve protocol."
-  :type 'integer
+  :type '(choice integer string)
+  :version "24.4"
   :group 'sieve-manage)
 
 (defcustom sieve-manage-default-stream 'network