/[emacs]/emacs/lisp/gnus/sieve-manage.el
ViewVC logotype

Diff of /emacs/lisp/gnus/sieve-manage.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by lute, Mon Jul 4 17:55:17 2005 UTC revision 1.5 by miles, Fri Aug 5 08:37:44 2005 UTC
# Line 1  Line 1 
1  ;;; sieve-manage.el --- Implementation of the managesive protocol in elisp  ;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
2  ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.  ;; Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc.
3    
4  ;; Author: Simon Josefsson <simon@josefsson.org>  ;; Author: Simon Josefsson <simon@josefsson.org>
5    
# Line 184  LOGINFUNC is passed a username and a pas Line 184  LOGINFUNC is passed a username and a pas
184  it where sucessful authenticating itself to the server, nil otherwise.  it where sucessful authenticating itself to the server, nil otherwise.
185  Returns t if login was successful, nil otherwise."  Returns t if login was successful, nil otherwise."
186    (with-current-buffer buffer    (with-current-buffer buffer
187      (make-variable-buffer-local 'sieve-manage-username)      (make-local-variable 'sieve-manage-username)
188      (make-variable-buffer-local 'sieve-manage-password)      (make-local-variable 'sieve-manage-password)
189      (let (user passwd ret reason)      (let (user passwd ret reason)
190        ;;      (condition-case ()        ;;      (condition-case ()
191        (while (or (not user) (not passwd))        (while (or (not user) (not passwd))
# Line 370  Optional variable BUFFER is buffer (buff Line 370  Optional variable BUFFER is buffer (buff
370  to work in."  to work in."
371    (setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000))))    (setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000))))
372    (with-current-buffer (get-buffer-create buffer)    (with-current-buffer (get-buffer-create buffer)
373      (mapcar 'make-variable-buffer-local sieve-manage-local-variables)      (mapcar 'make-local-variable sieve-manage-local-variables)
374      (sieve-manage-disable-multibyte)      (sieve-manage-disable-multibyte)
375      (buffer-disable-undo)      (buffer-disable-undo)
376      (setq sieve-manage-server (or server sieve-manage-server))      (setq sieve-manage-server (or server sieve-manage-server))
# Line 458  password is remembered in the buffer." Line 458  password is remembered in the buffer."
458    (with-current-buffer (or buffer (current-buffer))    (with-current-buffer (or buffer (current-buffer))
459      (if (not (eq sieve-manage-state 'nonauth))      (if (not (eq sieve-manage-state 'nonauth))
460          (eq sieve-manage-state 'auth)          (eq sieve-manage-state 'auth)
461        (make-variable-buffer-local 'sieve-manage-username)        (make-local-variable 'sieve-manage-username)
462        (make-variable-buffer-local 'sieve-manage-password)        (make-local-variable 'sieve-manage-password)
463        (if user (setq sieve-manage-username user))        (if user (setq sieve-manage-username user))
464        (if passwd (setq sieve-manage-password passwd))        (if passwd (setq sieve-manage-password passwd))
465        (if (funcall (nth 2 (assq sieve-manage-auth        (if (funcall (nth 2 (assq sieve-manage-auth

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26