nnimap 0.105 -> 0.106 patches

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

Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.208 nnimap/ChangeLog:1.210
*** nnimap/ChangeLog:1.208	Fri May 21 06:59:20 1999
--- nnimap/ChangeLog	Fri May 21 14:52:08 1999
***************
*** 1,5 ****
--- 1,13 ----
  1999-05-21  Simon Josefsson  <jas@pdc.kth.se>
  
+ 	* nnimap 0.106 released.
+ 
+ 	* imap.el (imap-mailbox-select): Return nil on failure.
+ 
+ 	* nnimap.el (nnimap-request-delete-group): Don't fail when force=nil.
+ 	(nnimap-retrieve-headers-progress): Parse References/In-Reply-To better.
+ 	(nnimap-retrieve-headers): Request In-Reply-To fields.
+ 
  	* nnimap 0.105 released.
  
  	* imap.el (imap-read-passwd): Try better to find a function.
Index: nnimap/imap.el
diff -c nnimap/imap.el:1.134 nnimap/imap.el:1.135
*** nnimap/imap.el:1.134	Fri May 21 06:58:47 1999
--- nnimap/imap.el	Fri May 21 14:24:27 1999
***************
*** 699,710 ****
  	      imap-mailbox-data (make-vector imap-mailbox-prime 0))
  	(if (imap-ok-p (imap-send-command-wait
  			(concat (if examine "EXAMINE" "SELECT") " " mailbox)))
! 	    (setq imap-message-data (make-vector imap-message-prime 0)
! 		  imap-state (if examine 'examine 'selected))
  	  ;; Failed SELECT unselects the current group
  	  (setq imap-current-mailbox old-mailbox
! 		imap-mailbox-data old-data))))
!     imap-current-mailbox))
  
  (defun imap-mailbox-unselect (&optional buffer)
    "Close current folder in BUFFER, without expunging articles."
--- 699,712 ----
  	      imap-mailbox-data (make-vector imap-mailbox-prime 0))
  	(if (imap-ok-p (imap-send-command-wait
  			(concat (if examine "EXAMINE" "SELECT") " " mailbox)))
! 	    (progn
! 	      (setq imap-message-data (make-vector imap-message-prime 0)
! 		    imap-state (if examine 'examine 'selected))
! 	      imap-current-mailbox)
  	  ;; Failed SELECT unselects the current group
  	  (setq imap-current-mailbox old-mailbox
! 		imap-mailbox-data old-data)
! 	  nil)))))
  
  (defun imap-mailbox-unselect (&optional buffer)
    "Close current folder in BUFFER, without expunging articles."
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.160 nnimap/nnimap.el:1.162
*** nnimap/nnimap.el:1.160	Fri May 21 06:59:02 1999
--- nnimap/nnimap.el	Fri May 21 14:52:20 1999
***************
*** 99,105 ****
  (gnus-declare-backend "nnimap" 'mail 'address 'prompt-address 
  		      'physical-address)
  
! (defconst nnimap-version "nnimap 0.105")
  
  (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.106")
  
  (defvoo nnimap-address nil
    "Address of physical IMAP server.  If nil, use the virtual server's name.")
***************
*** 315,329 ****
  	      (imap-message-envelope-date imap-current-message))
  	     (nnimap-replace-tabs
  	      (imap-message-envelope-message-id imap-current-message))
! 	     (let ((str (gnus-strip-whitespace
! 			 (or (nth 2 (assoc
! 				     "HEADER.FIELDS (References)"
! 				     (imap-message-get
! 				      imap-current-message 'BODYDETAIL)))
! 			     ""))))
! 	       (if (> (length str) (length "References:"))
! 		   (substring str (length "References:"))
! 		 str))
  	     (imap-message-get imap-current-message 'RFC822.SIZE)
  	     (imap-body-lines (imap-message-body imap-current-message))
  	     nil ;; xref
--- 315,330 ----
  	      (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)
! 	       (when (string-match "<[^>]+>" str)
! 		 (setq out (substring str (match-beginning 0) (match-end 0)))
! 		 (while (string-match "<[^>]+>" str (match-end 0))
! 		   (setq out (concat " "  (substring str (match-beginning 0)
! 						     (match-end 0))))))
! 	       (and out (gnus-strip-whitespace out)))
  	     (imap-message-get imap-current-message 'RFC822.SIZE)
  	     (imap-body-lines (imap-message-body imap-current-message))
  	     nil ;; xref
***************
*** 354,360 ****
  	  (nnimap-counter 0))
        (imap-fetch (nnimap-range-to-string (gnus-compress-sequence uids t))
  		  (concat "(UID RFC822.SIZE ENVELOPE BODY "
! 			  "BODY.PEEK[HEADER.FIELDS (References)])")
  		  nil nil nnimap-server-buffer)
        (and (numberp nnmail-large-newsgroup)
  	   (> nnimap-length nnmail-large-newsgroup)
--- 355,361 ----
  	  (nnimap-counter 0))
        (imap-fetch (nnimap-range-to-string (gnus-compress-sequence uids t))
  		  (concat "(UID RFC822.SIZE ENVELOPE BODY "
! 			  "BODY.PEEK[HEADER.FIELDS (References In-Reply-To)])")
  		  nil nil nnimap-server-buffer)
        (and (numberp nnmail-large-newsgroup)
  	   (> nnimap-length nnmail-large-newsgroup)
***************
*** 781,788 ****
  	   (cons group (nth 1 uid))))))
  
  (deffoo nnimap-request-delete-group (group force &optional server)
!   (when (and (nnimap-possibly-change-server server) force)
!     (imap-mailbox-delete group nnimap-server-buffer)))
  
  (deffoo nnimap-request-rename-group (group new-name &optional server)
    (when (nnimap-possibly-change-server server)
--- 782,792 ----
  	   (cons group (nth 1 uid))))))
  
  (deffoo nnimap-request-delete-group (group force &optional server)
!   (when (nnimap-possibly-change-server server)
!     (if force
! 	(imap-mailbox-delete group nnimap-server-buffer)
!       ;; UNSUBSCRIBE?
!       t)))
  
  (deffoo nnimap-request-rename-group (group new-name &optional server)
    (when (nnimap-possibly-change-server server)