/[emacs]/emacs/lisp/gnus/starttls.el
ViewVC logotype

Diff of /emacs/lisp/gnus/starttls.el

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

revision 1.7 by miles, Wed Jun 1 05:07:06 2005 UTC revision 1.8 by miles, Thu Jun 2 11:34:00 2005 UTC
# Line 236  handshake, or NIL on failure." Line 236  handshake, or NIL on failure."
236        (starttls-negotiate-gnutls process)        (starttls-negotiate-gnutls process)
237      (signal-process (process-id process) 'SIGALRM)))      (signal-process (process-id process) 'SIGALRM)))
238    
239  (if (fboundp 'set-process-query-on-exit-flag)  (eval-and-compile
240      (if (fboundp 'set-process-query-on-exit-flag)
241          (defalias 'starttls-set-process-query-on-exit-flag
242            'set-process-query-on-exit-flag)
243      (defalias 'starttls-set-process-query-on-exit-flag      (defalias 'starttls-set-process-query-on-exit-flag
244        'set-process-query-on-exit-flag)        'process-kill-without-query)))
   (defalias 'starttls-set-process-query-on-exit-flag  
     'process-kill-without-query))  
245    
246  (defun starttls-open-stream-gnutls (name buffer host service)  (defun starttls-open-stream-gnutls (name buffer host service)
247    (message "Opening STARTTLS connection to `%s'..." host)    (message "Opening STARTTLS connection to `%s'..." host)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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