(sieve-manage-default-stream): Make default stream customizable.

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b49579..b472335 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-05  Florian Ragwitz  <rafl@debian.org>  (tiny change)
+
+       * sieve-manage.el (sieve-manage-default-stream): Make default stream
+       customizable.
+

 2010-10-05  Julien Danjou  <julien@danjou.info>
 
        * gnus-util.el (gnus-emacs-completing-read)
 2010-10-05  Julien Danjou  <julien@danjou.info>
 
        * gnus-util.el (gnus-emacs-completing-read)

diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index 0f16444..8749864 100644 (file)
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -162,6 +162,12 @@ for doing the actual authentication."
   :type 'integer
   :group 'sieve-manage)
 
   :type 'integer
   :group 'sieve-manage)
 

+(defcustom sieve-manage-default-stream 'network
+  "Default stream type to use for `sieve-manage'.
+Must be a name of a stream in `sieve-manage-stream-alist'."
+  :type 'symbol
+  :group 'sieve-manage)
+

 ;; Internal variables:
 
 (defconst sieve-manage-local-variables '(sieve-manage-server
 ;; Internal variables:
 
 (defconst sieve-manage-local-variables '(sieve-manage-server


@@ -174,7 +180,6 @@ for doing the actual authentication."
                                         sieve-manage-client-eol
                                         sieve-manage-server-eol
                                         sieve-manage-capability))
                                         sieve-manage-client-eol
                                         sieve-manage-server-eol
                                         sieve-manage-capability))

-(defconst sieve-manage-default-stream 'network)

 (defconst sieve-manage-coding-system-for-read 'binary)
 (defconst sieve-manage-coding-system-for-write 'binary)
 (defvar sieve-manage-stream nil)
 (defconst sieve-manage-coding-system-for-read 'binary)
 (defconst sieve-manage-coding-system-for-write 'binary)
 (defvar sieve-manage-stream nil)