projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gnus-sum.el (gnus-summary-search-article):
[gnus]
/
lisp
/
proto-stream.el
diff --git
a/lisp/proto-stream.el
b/lisp/proto-stream.el
index
50ea05b
..
307d227
100644
(file)
--- a/
lisp/proto-stream.el
+++ b/
lisp/proto-stream.el
@@
-1,6
+1,6
@@
;;; proto-stream.el --- negotiating TLS, STARTTLS and other connections
;;; proto-stream.el --- negotiating TLS, STARTTLS and other connections
-;; Copyright (C) 2010-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 2010-201
5
Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: network
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: network
@@
-275,11
+275,16
@@
PARAMETERS should be a sequence of keywords and values:
(defun proto-stream-capability-open (start stream parameters stream-type)
(let* ((capability-command (plist-get parameters :capability-command))
(defun proto-stream-capability-open (start stream parameters stream-type)
(let* ((capability-command (plist-get parameters :capability-command))
- (eoc (plist-get parameters :end-of-command))
- (greeting (proto-stream-get-response stream start eoc)))
+ (greeting (proto-stream-get-response
+ stream start
+ (plist-get parameters :end-of-command))))
(list stream greeting
(and capability-command
(list stream greeting
(and capability-command
- (proto-stream-command stream capability-command eoc))
+ (proto-stream-command
+ stream capability-command
+ (or
+ (plist-get parameters :end-of-capability)
+ (plist-get parameters :end-of-command))))
stream-type)))
(provide 'proto-stream)
stream-type)))
(provide 'proto-stream)