* gnus-registry.el (gnus-registry-ignore-group-p): Don't call
`gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist.
+2011-04-24 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * proto-stream.el (proto-stream-open-starttls): Give host parameter to
+ `gnutls-negotiate'.
+ (gnutls-negotiate): Adjust `gnutls-negotiate' declaration.
+
2011-04-23 Glenn Morris <rgm@gnu.org>
* gnus-sum.el (gnus-extra-headers): Bump :version.
(require 'starttls)
(declare-function gnutls-negotiate "gnutls"
- (proc type &optional priority-string trustfiles keyfiles))
+ (proc type host &optional priority-string trustfiles keyfiles
+ verify-flags verify-error verify-hostname-error))
;;;###autoload
(defun open-protocol-stream (name buffer host service &rest parameters)
(proto-stream-command stream starttls-command eoc))
;; The server said it was OK to begin STARTTLS negotiations.
(if (fboundp 'open-gnutls-stream)
- (gnutls-negotiate stream nil)
+ (gnutls-negotiate stream nil host)
(unless (starttls-negotiate stream)
(delete-process stream)))
(if (memq (process-status stream) '(open run))