[Emacs-diffs] /srv/bzr/emacs/trunk r105377: (starttls-available-p): Renamed from `starttls-any-program-available' and changed return convention.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105377
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2011-08-02 15:30:46 +0200
message:
  (starttls-available-p): Renamed from `starttls-any-program-available' and 
changed return convention.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/starttls.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-07-31 22:15:44 +0000
+++ b/lisp/gnus/ChangeLog       2011-08-02 13:30:46 +0000
@@ -1,3 +1,8 @@
+2011-08-02  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * starttls.el (starttls-available-p): Renamed from
+       `starttls-any-program-available' and changed return convention.
+
 2011-07-31  Lars Ingebrigtsen  <address@hidden>
 
        * nnmaildir.el (nnmaildir-request-accept-article): Don't call

=== modified file 'lisp/gnus/starttls.el'
--- a/lisp/gnus/starttls.el     2011-01-25 04:08:28 +0000
+++ b/lisp/gnus/starttls.el     2011-08-02 13:30:46 +0000
@@ -295,18 +295,11 @@
       (starttls-set-process-query-on-exit-flag process nil)
       process)))
 
-(defun starttls-any-program-available ()
-  (let ((program (if starttls-use-gnutls
-                    starttls-gnutls-program
-                  starttls-program)))
-    (condition-case ()
-       (progn
-         (call-process program)
-         program)
-      (error (progn
-              (message "No STARTTLS program was available (tried '%s')"
-                       program)
-              nil)))))
+(defun starttls-available-p ()
+  "Say whether the STARTTLS programs are available."
+  (executable-find (if starttls-use-gnutls
+                      starttls-gnutls-program
+                    starttls-program)))
 
 (provide 'starttls)