nnimap: fix window-point-insertion-type for XEmacs

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d97969c..323ac09 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-06-19  Julien Danjou  <julien@danjou.info>
+
+       * nnimap.el (nnimap-log-buffer): Check that
+       `window-point-insertion-type' is boundp, since it's not available in
+       XEmacs.
+
 2012-06-19  Michael Welsh Duggan  <md5i@md5i.com>  (tiny change)
 
        * nnimap.el (nnimap-log-buffer): Add this, setting

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index e68570e..0669563 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1755,8 +1755,9 @@ if READ-ONLY is set, send EXAMINE rather than SELECT to the server."
   (let ((name "*imap log*"))
     (or (get-buffer name)
         (with-current-buffer (get-buffer-create name)
-          (make-local-variable 'window-point-insertion-type)
-          (setq window-point-insertion-type t)
+          (when (boundp 'window-point-insertion-type)
+            (make-local-variable 'window-point-insertion-type)
+            (setq window-point-insertion-type t))
           (current-buffer)))))
 
 (defun nnimap-log-command (command)