projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use bg/gfcolor specs on tables.
[gnus]
/
lisp
/
sieve-manage.el
diff --git
a/lisp/sieve-manage.el
b/lisp/sieve-manage.el
index
c542632
..
a364706
100644
(file)
--- a/
lisp/sieve-manage.el
+++ b/
lisp/sieve-manage.el
@@
-1,7
+1,7
@@
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;; 20
08, 2009, 20
10 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
2008, 2009,
+;; 2010 Free Software Foundation, Inc.
;; Author: Simon Josefsson <simon@josefsson.org>
;; Author: Simon Josefsson <simon@josefsson.org>
@@
-70,7
+70,7
@@
;;; Code:
;;; Code:
-;; For Emacs <
22.2
.
+;; For Emacs <
22.2 and XEmacs
.
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
@@
-79,6
+79,7
@@
(require 'password))
(eval-when-compile
(require 'password))
(eval-when-compile
+ (require 'cl) ; caddr
(require 'sasl)
(require 'starttls))
(autoload 'sasl-find-mechanism "sasl")
(require 'sasl)
(require 'starttls))
(autoload 'sasl-find-mechanism "sasl")
@@
-150,7
+151,7
@@
for doing the actual authentication."
:group 'sieve-manage)
(defcustom sieve-manage-default-port 2000
:group 'sieve-manage)
(defcustom sieve-manage-default-port 2000
- "Default port number for managesieve protocol."
+ "Default port number
or service name
for managesieve protocol."
:type 'integer
:group 'sieve-manage)
:type 'integer
:group 'sieve-manage)
@@
-389,7
+390,7
@@
Optional argument AUTH indicates authenticator to use, see
If nil, chooses the best stream the server is capable of.
Optional argument BUFFER is buffer (buffer, or string naming buffer)
to work in."
If nil, chooses the best stream the server is capable of.
Optional argument BUFFER is buffer (buffer, or string naming buffer)
to work in."
- (setq buffer (or buffer (format " *sieve* %s:%
d
" server (or port sieve-manage-default-port))))
+ (setq buffer (or buffer (format " *sieve* %s:%
s
" server (or port sieve-manage-default-port))))
(with-current-buffer (get-buffer-create buffer)
(mapc 'make-local-variable sieve-manage-local-variables)
(sieve-manage-disable-multibyte)
(with-current-buffer (get-buffer-create buffer)
(mapc 'make-local-variable sieve-manage-local-variables)
(sieve-manage-disable-multibyte)