2010-10-11 Katsumi Yamaoka <yamaoka@jpl.org>
+ * lpath.el: Fbind gnutls-negotiate for Emacs 22 and XEmacsen.
+
+ * nnimap.el (gnutls-negotiate): Silence the byte compiler.
+
* gnus-art.el, gnus-cache.el, gnus-fun.el, gnus-group.el,
gnus-picon.el, gnus-spec.el, gnus-sum.el, gnus-util.el, gnus.el,
hashcash.el, imap.el, mail-source.el, message.el, mm-bodies.el,
Info-index-next Info-menu bbdb-complete-name bookmark-default-handler
bookmark-get-bookmark-record bookmark-make-record-default
bookmark-prop-get display-time-event-handler epg-check-configuration
- find-coding-system frame-device libxml-parse-html-region
- recenter-top-bottom rmail-swap-buffers-maybe shr-insert-document
- w3-do-setup w3-parse-buffer w3-prepare-buffer w3-region
- w3m-detect-meta-charset w3m-region))
+ find-coding-system frame-device gnutls-negotiate
+ libxml-parse-html-region recenter-top-bottom rmail-swap-buffers-maybe
+ shr-insert-document w3-do-setup w3-parse-buffer w3-prepare-buffer
+ w3-region w3m-detect-meta-charset w3m-region))
(maybe-bind
'(w3m-link-map))))
display-time-event-handler epg-check-configuration event-click-count
event-end event-start find-coding-systems-for-charsets
find-coding-systems-region find-coding-systems-string find-image
- float-time help-buffer ido-completing-read image-size
+ float-time gnutls-negotiate help-buffer ido-completing-read image-size
image-type-available-p insert-image libxml-parse-html-region
mail-abbrevs-setup make-mode-line-mouse-map make-network-process
mouse-minibuffer-check mouse-movement-p mouse-scroll-subr overlay-lists
;;; Code:
+;; For Emacs <22.2 and XEmacs.
+(eval-and-compile
+ (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
+
(eval-and-compile
(require 'nnheader))
(* 5 60)))
(nnimap-send-command "NOOP")))))))
+(declare-function gnutls-negotiate "subr" (fn file &optional arglist fileonly))
+
(defun nnimap-open-connection (buffer)
(unless nnimap-keepalive-timer
(setq nnimap-keepalive-timer (run-at-time (* 60 15) (* 60 15)