From fc8a05bb16b15558e896c1723684aa5e0b8d06c9 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 27 Sep 2010 18:31:33 +0200 Subject: [PATCH] (sieve-manage-default-stream): Make default stream customizable. From Florian Ragwitz --- lisp/ChangeLog | 5 +++++ lisp/sieve-manage.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 10d691bb4..6d7ba1e27 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-27 Florian Ragwitz + + * sieve-manage.el (sieve-manage-default-stream): Make default stream + customizable. + 2010-09-27 Lars Magne Ingebrigtsen * nnimap.el (utf7): Required. diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el index 0f16444ca..8749864d8 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) -- 2.34.1