nnimap 0.37 -> 0.38 patches

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

Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.110 nnimap/ChangeLog:1.112
*** nnimap/ChangeLog:1.110	Tue Oct 20 05:23:31 1998
--- nnimap/ChangeLog	Thu Oct 29 02:52:29 1998
***************
*** 1,3 ****
--- 1,16 ----
+ 1998-10-29 11:49:19  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap 0.38 released.
+ 
+ 1998-10-28  Matt Armstrong  <matta@geoworks.com>
+ 
+ 	* nnimap.el (nnimap-retrieve-headers): ignore fetch-old arg.
+ 
+ 1998-10-25 16:17:44  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap.el (nnimap-request-update-info-internal): Reset before
+ 	entering group.
+ 
  1998-10-20 14:21:00  Simon Josefsson  <jas@pdc.kth.se>
  
  	* nnimap 0.37 released.
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.88 nnimap/nnimap.el:1.91
*** nnimap/nnimap.el:1.88	Tue Oct 20 05:24:26 1998
--- nnimap/nnimap.el	Thu Oct 29 02:51:59 1998
***************
*** 95,101 ****
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.37")
  
  ;; Various server variables.
  
--- 95,101 ----
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.38")
  
  ;; Various server variables.
  
***************
*** 351,360 ****
  (deffoo nnimap-retrieve-headers (articles &optional group server fetch-old)
    (when (nnimap-possibly-change-group group server)
      (with-current-buffer nntp-server-buffer (erase-buffer))
!     (let* (compressed (uncompressed (gnus-uncompress-sequence articles)))
!       (when (numberp fetch-old)
!         (setcar uncompressed (- (car uncompressed) fetch-old)))
!       (setq compressed (gnus-compress-sequence uncompressed t))
        (with-current-buffer nnimap-server-buffer
  	;; Reset message info, this makes sure we return 423 on
  	;; articles that were removed by another client while we
--- 351,358 ----
  (deffoo nnimap-retrieve-headers (articles &optional group server fetch-old)
    (when (nnimap-possibly-change-group group server)
      (with-current-buffer nntp-server-buffer (erase-buffer))
!     (let* ((uncompressed (gnus-uncompress-sequence articles))
!           (compressed (gnus-compress-sequence uncompressed t)))
        (with-current-buffer nnimap-server-buffer
  	;; Reset message info, this makes sure we return 423 on
  	;; articles that were removed by another client while we
***************
*** 717,727 ****
  ;; we can't have Gnus call it all the time. Instead, it's called by
  ;; nnimap-request-group.
  (deffoo nnimap-request-update-info-internal (group info &optional server)
    (when (nnimap-possibly-change-group group server) ;; SELECT
-     ;; We reset the uidvalidity here because we are about to do a full resync.
-     (gnus-info-set-params info (nnimap-update-alist-soft
- 				'uidvalidity nil (gnus-info-params info)) t)
-     
      (with-current-buffer nnimap-server-buffer
        (gnus-message 5 "Updating info for mailbox %s" group)
        
--- 715,724 ----
  ;; we can't have Gnus call it all the time. Instead, it's called by
  ;; nnimap-request-group.
  (deffoo nnimap-request-update-info-internal (group info &optional server)
+   ;; We reset the uidvalidity here because we are about to do a full resync.
+   (gnus-info-set-params info (nnimap-update-alist-soft
+ 			      'uidvalidity nil (gnus-info-params info)) t)
    (when (nnimap-possibly-change-group group server) ;; SELECT
      (with-current-buffer nnimap-server-buffer
        (gnus-message 5 "Updating info for mailbox %s" group)