[PATCH] Make sieve-manage-default-stream customizable

[PATCH] Make sieve-manage-default-stream customizable

[Florian Ragwitz]

---
 lisp/ChangeLog       |    5 +++++
 lisp/sieve-manage.el |    7 ++++++-
 2 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b240ad7..8c19611 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-27  Florian Ragwitz  <rafl@debian.org>
+
+	* sieve-manage.el (sieve-manage-default-stream): Make default stream
+	customizable.
+
 2010-09-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* nnimap.el (nnimap-request-accept-article): Message the error on
diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index 0f16444..8749864 100644
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -162,6 +162,12 @@ for doing the actual authentication."
   :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
@@ -174,7 +180,6 @@ for doing the actual authentication."
 					 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)
-- 
1.7.1

Re: [PATCH] Make sieve-manage-default-stream customizable

[Lars Magne Ingebrigtsen]

Florian Ragwitz <rafl@debian.org> writes:

> +	* sieve-manage.el (sieve-manage-default-stream): Make default stream
> +	customizable.

Thanks; applied.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen