Changes committed gnus/lisp (ChangeLog sieve-manage.el)
"Reiner Steib" <[email protected]> Tue, 23 Dec 2008 17:45:59 +0100
| Newsgroups | gmane.emacs.gnus.commits |
|---|---|
| Message-ID | <[email protected]> |
Modified: ChangeLog sieve-manage.el (sieve-manage-starttls-p): Renamed from imap-starttls-p. (sieve-manage-starttls-open): Renamed from imap-starttls-open. Index: ChangeLog diff -u gnus/lisp/ChangeLog:7.1954 gnus/lisp/ChangeLog:7.1955 --- ChangeLog:7.1954 Mon Dec 22 23:38:50 2008 +++ ChangeLog Tue Dec 23 17:45:58 2008 @@ -1,3 +1,9 @@ +2008-12-23 Dave Love <[email protected]> + + * sieve-manage.el (sieve-manage-starttls-p): Renamed from + imap-starttls-p. + (sieve-manage-starttls-open): Renamed from imap-starttls-open. + 2008-12-22 Dave Love <[email protected]> * imap.el: Fix author email. Doc fixes. Index: sieve-manage.el diff -u gnus/lisp/sieve-manage.el:7.25 gnus/lisp/sieve-manage.el:7.26 --- sieve-manage.el:7.25 Wed Sep 17 13:06:34 2008 +++ sieve-manage.el Tue Dec 23 17:45:58 2008 @@ -304,15 +304,14 @@ (when (memq (process-status process) '(open run)) process)))) -(defun imap-starttls-p (buffer) - ;; (and (imap-capability 'STARTTLS buffer) +(defun sieve-manage-starttls-p (buffer) (condition-case () (progn (require 'starttls) (call-process "starttls")) (error nil))) -(defun imap-starttls-open (name buffer server port) +(defun sieve-manage-starttls-open (name buffer server port) (let* ((port (or port sieve-manage-default-port)) (coding-system-for-read sieve-manage-coding-system-for-read) (coding-system-for-write sieve-manage-coding-system-for-write)