Commits

Anonymous committed 9d1b239

2002-05-21 Simon Josefsson <jas@extundo.com>

* sieve-manage.el (sieve-manage-cram-md5-auth): Just send the SASL
name (makes it work with recent Cyrus timsieved).

2002-02-20 Katsumi Yamaoka <yamaoka@jpl.org>

* many files: Remove trailing whitespaces, replace spc+tab with
tab, replace leading whitespaces with tabs.

Comments (0)

Files changed (4)

+2002-05-21  Simon Josefsson  <jas@extundo.com>
+
+	* sieve-manage.el (sieve-manage-cram-md5-auth): Just send the SASL
+	name (makes it work with recent Cyrus timsieved).
+
+2002-02-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* many files: Remove trailing whitespaces, replace spc+tab with
+	tab, replace leading whitespaces with tabs.
+
 2002-03-25  Steve Youngs  <youngs@xemacs.org>
 
 	* Makefile (VERSION): 1.02 released.
 (defcustom sieve-manage-authenticators '(cram-md5 plain)
   "Priority of authenticators to consider when authenticating to server.")
 
-(defcustom sieve-manage-authenticator-alist 
+(defcustom sieve-manage-authenticator-alist
   '((cram-md5   sieve-manage-cram-md5-p       sieve-manage-cram-md5-auth)
     (plain      sieve-manage-plain-p          sieve-manage-plain-auth))
   "Definition of authenticators.
       ;;      (condition-case ()
       (while (or (not user) (not passwd))
 	(setq user (or sieve-manage-username
-		       (read-from-minibuffer 
+		       (read-from-minibuffer
 			(concat "Managesieve username for "
 				sieve-manage-server ": ")
 			(or user sieve-manage-default-user))))
 	(setq passwd (or sieve-manage-password
 			 (sieve-manage-read-passwd
-			  (concat "Managesieve password for " user "@" 
+			  (concat "Managesieve password for " user "@"
 				  sieve-manage-server ": "))))
 	(when (and user passwd)
 	  (if (funcall loginfunc user passwd)
 		  (sieve-manage-send (concat "AUTHENTICATE \"PLAIN\" \""
 					     (base64-encode-string
 					      (concat (char-to-string 0)
-						      user 
+						      user
 						      (char-to-string 0)
 						      passwd))
 					     "\""))
   (let* ((done (sieve-manage-interactive-login
 		buffer
 		(lambda (user passwd)
-		  (sieve-manage-send "AUTHENTICATE \"CRAM-MD5\" \"\"")
+		  (sieve-manage-send "AUTHENTICATE \"CRAM-MD5\"")
 		  (sieve-manage-send
 		   (concat
 		    "\""
 		(if (funcall (nth 1 (assq stream
 					  sieve-manage-stream-alist)) buffer)
 		    (setq stream-changed
-			  (not (eq (or sieve-manage-stream 
+			  (not (eq (or sieve-manage-stream
 				       sieve-manage-default-stream)
 				   stream))
 			  sieve-manage-stream stream
 	    (if (sieve-manage-open-1 buffer)
 		(message "sieve: Reconnecting with stream `%s'...done"
 			 sieve-manage-stream)
-	      (message "sieve: Reconnecting with stream `%s'...failed" 
+	      (message "sieve: Reconnecting with stream `%s'...failed"
 		       sieve-manage-stream))
 	    (setq sieve-manage-capability nil))
 	  (if (sieve-manage-opened buffer)
 	      ;; Choose authenticator
 	      (when (and (null sieve-manage-auth)
 			 (not (eq sieve-manage-state 'auth)))
-		(let ((auths sieve-manage-authenticators))		      
+		(let ((auths sieve-manage-authenticators))
 		  (while (setq auth (pop auths))
 		    (if (funcall (nth 1 (assq
 					 auth
 (defvar sieve-control-commands-face 'sieve-control-commands-face
   "Face name used for Sieve Control Commands.")
 
-(defface sieve-control-commands-face 
+(defface sieve-control-commands-face
   '((((type tty) (class color)) (:foreground "blue" :weight light))
     (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
     (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
 (defvar sieve-test-commands-face 'sieve-test-commands-face
   "Face name used for Sieve Test Commands.")
 
-(defface sieve-test-commands-face 
+(defface sieve-test-commands-face
   '((((type tty) (class color)) (:foreground "magenta"))
     (((class grayscale) (background light))
      (:foreground "LightGray" :bold t :underline t))
      (cons (regexp-opt '("address" "allof" "anyof" "exists" "false"
 			 "true" "header" "not" "size" "envelope"))
 	   'sieve-test-commands-face)
-     (cons "\\Sw+:\\sw+" 
+     (cons "\\Sw+:\\sw+"
 	   'sieve-tagged-arguments-face))))
 
 ;; Syntax table
 
 ;; Key map definition
 
-(defvar sieve-mode-map 
+(defvar sieve-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\C-c\C-l" 'sieve-upload)
     (define-key map "\C-c\C-m" 'sieve-manage)
   (set (make-local-variable 'comment-start-skip) "#+ *")
   (unless (featurep 'xemacs)
     (set (make-local-variable 'font-lock-defaults)
-         '(sieve-font-lock-keywords nil nil ((?_ . "w")))))
+	 '(sieve-font-lock-keywords nil nil ((?_ . "w")))))
   (easy-menu-add-item nil nil sieve-mode-menu))
 
 ;; Menu
     ["Activate script" sieve-activate t]
     ["Deactivate script" sieve-deactivate t]))
 
-;; This is necessary to allow correct handling of \\[cvs-mode-diff-map] 
+;; This is necessary to allow correct handling of \\[cvs-mode-diff-map]
 ;; in substitute-command-keys.
 ;(fset 'sieve-manage-mode-map sieve-manage-mode-map)