From: Julien Danjou <julien@danjou.info>
Date: Fri, 24 May 2013 14:36:12 +0000 (+0000)
Subject: lisp/gnus/sieve.el (sieve-setup-buffer): Fix default port value in sieve buffer setup
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~198
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4f59c0fb9e684f06ab82236474fbf4586968dad;p=emacs.git

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 f0b23832c64..d475a259113 100644
--- 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 71a4a7905a8..0e46cb66361 100644
--- 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)