lisp/gnus/sieve-manage.el

91   :type 'string
96   :type 'string
100   "The EOL string sent from the server."
101   :type 'string
105   "The EOL string we send to the server."
106   :type 'string
155 					 sieve-manage-process
171 (defvar sieve-manage-process nil)
242 	  sieve-manage-process
248     (when sieve-manage-process
250 		  (memq (process-status sieve-manage-process) '(open run)))
252 	(accept-process-output sieve-manage-process 1))
254       (and (memq (process-status sieve-manage-process) '(open run))
255 	   sieve-manage-process))))
266 	 (process (open-network-stream name buffer server port)))
267     (when process
268       (while (and (memq (process-status process) '(open run))
272 	(accept-process-output process 1)
275       (when (memq (process-status process) '(open run))
276 	process))))
283 	(call-process "starttls"))
290 	 (process (starttls-open-stream name buffer server port))
292     (when process
293       (while (and (memq (process-status process) '(open run))
297 	(accept-process-output process 1)
300       (sieve-manage-send "STARTTLS")
301       (starttls-negotiate process))
302     (when (memq (process-status process) '(open run))
303       process)))
315 		  (sieve-manage-send (concat "AUTHENTICATE \"PLAIN\" \""
316 					     (base64-encode-string
317 					      (concat (char-to-string 0)
319 						      (char-to-string 0)
340 		  (sieve-manage-send "AUTHENTICATE \"CRAM-MD5\"")
341 		  (sieve-manage-send
344 		    (base64-encode-string
348 				    (base64-decode-string
350 					 (sieve-manage-parse-string)
365   "Open a network connection to a managesieve SERVER (string).
371 Optional variable BUFFER is buffer (buffer, or string naming buffer)
436 	 (and sieve-manage-process
437 	      (memq (process-status sieve-manage-process) '(open run))))))
444       (sieve-manage-send "LOGOUT")
446     (when (and sieve-manage-process
447 	       (memq (process-status sieve-manage-process) '(open run)))
448       (delete-process sieve-manage-process))
449     (setq sieve-manage-process nil)
477 	(when (string-match value (nth 1 (assoc name sieve-manage-capability)))
482     (sieve-manage-send "LISTSCRIPTS")
487     (sieve-manage-send (format "HAVESPACE \"%s\" %s" name size))
491   (if (fboundp 'string-bytes)
492       (defalias 'sieve-string-bytes 'string-bytes)
493     (defalias 'sieve-string-bytes 'length)))
497     (sieve-manage-send (format "PUTSCRIPT \"%s\" {%d+}%s%s" name
498 			       (sieve-string-bytes content)
504     (sieve-manage-send (format "DELETESCRIPT \"%s\"" name))
509     (sieve-manage-send (format "GETSCRIPT \"%s\"" name))
510     (let ((script (sieve-manage-parse-string)))
518     (sieve-manage-send (format "SETACTIVE \"%s\"" name))
524   (string= (downcase (or (car-safe rsp) "")) "ok"))
533     (let ((status (match-string 1))
534 	  (resp-code (match-string 3))
535 	  (response (match-string 5)))
538 	(setq response (sieve-manage-is-string)))
544       (accept-process-output (get-buffer-process (current-buffer)) 1)
553     (while (setq str (sieve-manage-is-string))
557 	    (push (list str (sieve-manage-is-string))
566 (defun sieve-manage-is-string ()
569 	     (match-string 1)
573 	       (len (string-to-number (match-string 1))))
579 (defun sieve-manage-parse-string ()
582       (accept-process-output (get-buffer-process (current-buffer)) 1)
584       (setq rsp (sieve-manage-is-string)))
596 		       (setq tmp (sieve-manage-is-string))))
597 	(accept-process-output (get-buffer-process (current-buffer)) 1)
602 	  (accept-process-output (get-buffer-process (current-buffer)) 1)
604 	(if (match-string 1)
614 (defun sieve-manage-send (cmdstr)
622   (process-send-string sieve-manage-process cmdstr))