nnimap 0.116 -> 0.117 patches

[Simon Josefsson <jas@pdc.kth.se>]

Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.233 nnimap/ChangeLog:1.235
*** nnimap/ChangeLog:1.233	Sun Jun 13 06:56:44 1999
--- nnimap/ChangeLog	Mon Jun 14 04:52:48 1999
***************
*** 1,3 ****
--- 1,10 ----
+ 1999-06-14  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap 0.117 released.
+ 
+ 	* imap.el (imap-mailbox-select): Remember message data, not
+ 	mailbox data.
+ 
  1999-06-13  Simon Josefsson  <jas@pdc.kth.se>
  
  	* nnimap 0.116 released.
Index: nnimap/imap.el
diff -c nnimap/imap.el:1.147 nnimap/imap.el:1.148
*** nnimap/imap.el:1.147	Sun Jun 13 05:13:41 1999
--- nnimap/imap.el	Mon Jun 14 04:34:49 1999
***************
*** 701,709 ****
      (if (imap-current-mailbox-p mailbox examine)
  	imap-current-mailbox
        (let ((old-mailbox imap-current-mailbox)
! 	    (old-data imap-mailbox-data))
! 	(setq imap-current-mailbox mailbox
! 	      imap-mailbox-data (make-vector imap-mailbox-prime 0))
  	(if (imap-ok-p (imap-send-command-wait
  			(concat (if examine "EXAMINE" "SELECT") " " mailbox)))
  	    (progn
--- 701,708 ----
      (if (imap-current-mailbox-p mailbox examine)
  	imap-current-mailbox
        (let ((old-mailbox imap-current-mailbox)
! 	    (old-data imap-message-data))
! 	(setq imap-current-mailbox mailbox)
  	(if (imap-ok-p (imap-send-command-wait
  			(concat (if examine "EXAMINE" "SELECT") " " mailbox)))
  	    (progn
***************
*** 712,718 ****
  	      imap-current-mailbox)
  	  ;; Failed SELECT unselects the current group
  	  (setq imap-current-mailbox old-mailbox
! 		imap-mailbox-data old-data)
  	  nil)))))
  
  (defun imap-mailbox-examine (mailbox &optional buffer)
--- 711,717 ----
  	      imap-current-mailbox)
  	  ;; Failed SELECT unselects the current group
  	  (setq imap-current-mailbox old-mailbox
! 		imap-message-data old-data)
  	  nil)))))
  
  (defun imap-mailbox-examine (mailbox &optional buffer)
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.184 nnimap/nnimap.el:1.185
*** nnimap/nnimap.el:1.184	Sun Jun 13 06:56:30 1999
--- nnimap/nnimap.el	Mon Jun 14 04:52:41 1999
***************
*** 99,105 ****
  (gnus-declare-backend "nnimap" 'mail 'address 'prompt-address 
  		      'physical-address)
  
! (defconst nnimap-version "nnimap 0.116")
  
  (defvoo nnimap-address nil
    "Address of physical IMAP server.  If nil, use the virtual server's name.")
--- 99,105 ----
  (gnus-declare-backend "nnimap" 'mail 'address 'prompt-address 
  		      'physical-address)
  
! (defconst nnimap-version "nnimap 0.117")
  
  (defvoo nnimap-address nil
    "Address of physical IMAP server.  If nil, use the virtual server's name.")