nnimap 0.101 -> 0.102 patches

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

Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.204 nnimap/ChangeLog:1.205
*** nnimap/ChangeLog:1.204	Mon May 17 14:45:55 1999
--- nnimap/ChangeLog	Tue May 18 03:06:22 1999
***************
*** 1,3 ****
--- 1,9 ----
+ 1999-05-18  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap 0.102 released.
+ 
+ 	* nnimap.el (nnimap-retrieve-headers): Protect gnus-strip-whitespace.
+ 
  1999-05-17  Simon Josefsson  <jas@pdc.kth.se>
  
  	* nnimap 0.101 released.
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.155 nnimap/nnimap.el:1.156
*** nnimap/nnimap.el:1.155	Mon May 17 14:46:21 1999
--- nnimap/nnimap.el	Tue May 18 03:06:33 1999
***************
*** 99,105 ****
  (gnus-declare-backend "nnimap" 'mail 'address 'prompt-address 
  		      'physical-address)
  
! (defconst nnimap-version "nnimap 0.101")
  
  (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.102")
  
  (defvoo nnimap-address nil
    "Address of physical IMAP server.  If nil, use the virtual server's name.")
***************
*** 343,353 ****
  		     (car-safe (imap-message-envelope-from uid))))
  		   (nnimap-replace-tabs (imap-message-envelope-date uid))
  		   (nnimap-replace-tabs (imap-message-envelope-message-id uid))
! 		   (let ((str (gnus-strip-whitespace 
! 			       (nth 2 (assoc 
! 				       "HEADER.FIELDS (References)"
! 				       (imap-message-get
! 					uid 'BODYDETAIL))))))
  		     (if (> (length str) (length "References:"))
  			 (substring str (length "References:"))
  		       str))
--- 343,354 ----
  		     (car-safe (imap-message-envelope-from uid))))
  		   (nnimap-replace-tabs (imap-message-envelope-date uid))
  		   (nnimap-replace-tabs (imap-message-envelope-message-id uid))
! 		   (let ((str (gnus-strip-whitespace
! 			       (or (nth 2 (assoc
! 					   "HEADER.FIELDS (References)"
! 					   (imap-message-get
! 					    uid 'BODYDETAIL)))
! 				   ""))))
  		     (if (> (length str) (length "References:"))
  			 (substring str (length "References:"))
  		       str))