diff options
| author | Miles Bader <miles@gnu.org> | 2005-06-02 11:34:00 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-06-02 11:34:00 +0000 |
| commit | 0f69d598bc0b95891ee020f6ff2268e2ec981b5f (patch) | |
| tree | 159b6886c00d1943af000edda92dbe4a5dec05ab /lisp/gnus/starttls.el | |
| parent | a2e6384d44559b23890969a21d579bf35cd85d88 (diff) | |
| download | emacs-0f69d598bc0b95891ee020f6ff2268e2ec981b5f.tar.gz | |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-348
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 79)
- Update from CVS
2005-06-02 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/pop3.el (pop3-md5): Run md5 in the binary mode.
(pop3-md5-program-args): New variable.
* lisp/gnus/starttls.el (starttls-set-process-query-on-exit-flag): Use
eval-and-compile.
Diffstat (limited to 'lisp/gnus/starttls.el')
| -rw-r--r-- | lisp/gnus/starttls.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el index 7faa3a933a7..ddc91d90d25 100644 --- a/lisp/gnus/starttls.el +++ b/lisp/gnus/starttls.el @@ -236,11 +236,12 @@ handshake, or NIL on failure." (starttls-negotiate-gnutls process) (signal-process (process-id process) 'SIGALRM))) -(if (fboundp 'set-process-query-on-exit-flag) +(eval-and-compile + (if (fboundp 'set-process-query-on-exit-flag) + (defalias 'starttls-set-process-query-on-exit-flag + 'set-process-query-on-exit-flag) (defalias 'starttls-set-process-query-on-exit-flag - 'set-process-query-on-exit-flag) - (defalias 'starttls-set-process-query-on-exit-flag - 'process-kill-without-query)) + 'process-kill-without-query))) (defun starttls-open-stream-gnutls (name buffer host service) (message "Opening STARTTLS connection to `%s'..." host) |