lisp/gnus/sieve.el (sieve-setup-buffer): Fix default port value in sieve buffer setup

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f0b2383..d475a25 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-24  Julien Danjou  <julien@danjou.info>
+
+       * sieve.el (sieve-setup-buffer): Fix default port value in sieve buffer
+       setup.
+
 2013-05-23  Glenn Morris  <rgm@gnu.org>
 
        * gnus-util.el (rmail-swap-buffers-maybe)

diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el
index 71a4a79..0e46cb6 100644 (file)
--- a/lisp/gnus/sieve.el
+++ b/lisp/gnus/sieve.el
@@ -257,7 +257,7 @@ Used to bracket operations which move point in the sieve-buffer."
   (erase-buffer)
   (buffer-disable-undo)
   (insert "\
-Server  : " server ":" (or port "2000") "
+Server  : " server ":" (or port sieve-manage-default-port) "
 
 ")
   (set (make-local-variable 'sieve-buffer-header-end)