[Emacs-diffs] Changes to emacs/lisp/gnus/sieve-manage.el

[Miles Bader]

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 <address@hidden>
  
--- 1,5 ----
  ;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
! ;; Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
  
***************
*** 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