nnimap 0.106 -> 0.107 patches

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

Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.210 nnimap/ChangeLog:1.211
*** nnimap/ChangeLog:1.210	Fri May 21 14:52:08 1999
--- nnimap/ChangeLog	Mon May 24 06:33:12 1999
***************
*** 1,3 ****
--- 1,11 ----
+ 1999-05-24  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap 0.107 released.
+ 
+ 	* imap.el (imap-parse-fetch): Upcase names.
+ 
+ 	* nnimap.el (nnimap-retrieve-headers-progress): Request upcased names.
+ 
  1999-05-21  Simon Josefsson  <jas@pdc.kth.se>
  
  	* nnimap 0.106 released.
Index: nnimap/imap.el
diff -c nnimap/imap.el:1.135 nnimap/imap.el:1.136
*** nnimap/imap.el:1.135	Fri May 21 14:24:27 1999
--- nnimap/imap.el	Mon May 24 06:33:28 1999
***************
*** 1646,1653 ****
  		((eq token 'BODY)
  		 (if (eq (char-before) ?\[)
  		     (push (list
! 			    (buffer-substring (point)
! 					      (1- (search-forward "]" nil t)))
  			    (and (eq (char-after) ?<)
  				 (buffer-substring (1+ (point))
  						   (search-forward ">" nil t)))
--- 1646,1653 ----
  		((eq token 'BODY)
  		 (if (eq (char-before) ?\[)
  		     (push (list
! 			    (upcase (buffer-substring 
! 				     (point) (1- (search-forward "]" nil t))))
  			    (and (eq (char-after) ?<)
  				 (buffer-substring (1+ (point))
  						   (search-forward ">" nil t)))
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.162 nnimap/nnimap.el:1.164
*** nnimap/nnimap.el:1.162	Fri May 21 14:52:20 1999
--- nnimap/nnimap.el	Mon May 24 06:33:42 1999
***************
*** 99,105 ****
  (gnus-declare-backend "nnimap" 'mail 'address 'prompt-address 
  		      'physical-address)
  
! (defconst nnimap-version "nnimap 0.106")
  
  (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.107")
  
  (defvoo nnimap-address nil
    "Address of physical IMAP server.  If nil, use the virtual server's name.")
***************
*** 315,321 ****
  	      (imap-message-envelope-date imap-current-message))
  	     (nnimap-replace-tabs
  	      (imap-message-envelope-message-id imap-current-message))
! 	     (let ((str (nth 2 (assoc "HEADER.FIELDS (References In-Reply-To)"
  				      (imap-message-get
  				       imap-current-message 'BODYDETAIL))))
  		   out)
--- 315,321 ----
  	      (imap-message-envelope-date imap-current-message))
  	     (nnimap-replace-tabs
  	      (imap-message-envelope-message-id imap-current-message))
! 	     (let ((str (nth 2 (assoc "HEADER.FIELDS (REFERENCES IN-REPLY-TO)"
  				      (imap-message-get
  				       imap-current-message 'BODYDETAIL))))
  		   out)