Index: emacs/lisp/gnus/sieve-manage.el
diff -c emacs/lisp/gnus/sieve-manage.el:1.4 emacs/lisp/gnus/sieve-manage.el:1.5
*** emacs/lisp/gnus/sieve-manage.el:1.4 Mon Jul 4 17:55:17 2005
--- emacs/lisp/gnus/sieve-manage.el Fri Aug 5 08:37:44 2005
***************
*** 1,5 ****
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
! ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
;; Author: Simon Josefsson <[EMAIL PROTECTED]>
--- 1,5 ----
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
! ;; Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc.
;; Author: Simon Josefsson <[EMAIL PROTECTED]>
***************
*** 184,191 ****
it where sucessful authenticating itself to the server, nil otherwise.
Returns t if login was successful, nil otherwise."
(with-current-buffer buffer
! (make-variable-buffer-local 'sieve-manage-username)
! (make-variable-buffer-local 'sieve-manage-password)
(let (user passwd ret reason)
;; (condition-case ()
(while (or (not user) (not passwd))
--- 184,191 ----
it where sucessful authenticating itself to the server, nil otherwise.
Returns t if login was successful, nil otherwise."
(with-current-buffer buffer
! (make-local-variable 'sieve-manage-username)
! (make-local-variable 'sieve-manage-password)
(let (user passwd ret reason)
;; (condition-case ()
(while (or (not user) (not passwd))
***************
*** 370,376 ****
to work in."
(setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000))))
(with-current-buffer (get-buffer-create buffer)
! (mapcar 'make-variable-buffer-local sieve-manage-local-variables)
(sieve-manage-disable-multibyte)
(buffer-disable-undo)
(setq sieve-manage-server (or server sieve-manage-server))
--- 370,376 ----
to work in."
(setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000))))
(with-current-buffer (get-buffer-create buffer)
! (mapcar 'make-local-variable sieve-manage-local-variables)
(sieve-manage-disable-multibyte)
(buffer-disable-undo)
(setq sieve-manage-server (or server sieve-manage-server))
***************
*** 458,465 ****
(with-current-buffer (or buffer (current-buffer))
(if (not (eq sieve-manage-state 'nonauth))
(eq sieve-manage-state 'auth)
! (make-variable-buffer-local 'sieve-manage-username)
! (make-variable-buffer-local 'sieve-manage-password)
(if user (setq sieve-manage-username user))
(if passwd (setq sieve-manage-password passwd))
(if (funcall (nth 2 (assq sieve-manage-auth
--- 458,465 ----
(with-current-buffer (or buffer (current-buffer))
(if (not (eq sieve-manage-state 'nonauth))
(eq sieve-manage-state 'auth)
! (make-local-variable 'sieve-manage-username)
! (make-local-variable 'sieve-manage-password)
(if user (setq sieve-manage-username user))
(if passwd (setq sieve-manage-password passwd))
(if (funcall (nth 2 (assq sieve-manage-auth
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
