[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

nnimap 0.102 -> 0.103 patches



Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.205 nnimap/ChangeLog:1.206
*** nnimap/ChangeLog:1.205	Tue May 18 03:06:22 1999
--- nnimap/ChangeLog	Tue May 18 04:39:02 1999
***************
*** 1,5 ****
--- 1,10 ----
  1999-05-18  Simon Josefsson  <jas@pdc.kth.se>
  
+ 	* nnimap 0.103 released.
+ 
+ 	* nnimap.el (nnimap-retrieve-headers): Don't insert NOV lines here.
+ 	(nnimap-retrieve-headers-progress): Insert NOV lines here.
+ 
  	* nnimap 0.102 released.
  
  	* nnimap.el (nnimap-retrieve-headers): Protect gnus-strip-whitespace.
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.156 nnimap/nnimap.el:1.158
*** nnimap/nnimap.el:1.156	Tue May 18 03:06:33 1999
--- nnimap/nnimap.el	Tue May 18 04:41:15 1999
***************
*** 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.")
--- 99,105 ----
  (gnus-declare-backend "nnimap" 'mail 'address 'prompt-address 
  		      'physical-address)
  
! (defconst nnimap-version "nnimap 0.103")
  
  (defvoo nnimap-address nil
    "Address of physical IMAP server.  If nil, use the virtual server's name.")
***************
*** 301,307 ****
         (> nnimap-length nnmail-large-newsgroup)
         (zerop (% (incf nnimap-counter) 20))
         (nnheader-message 6 "nnimap: Receiving headers... %d%%"
! 			 (/ (* nnimap-counter 100) nnimap-length))))
  
  (defun nnimap-retrieve-headers-store-uids ()
    (setq nnimap-uids (cons imap-current-message nnimap-uids)))
--- 301,333 ----
         (> nnimap-length nnmail-large-newsgroup)
         (zerop (% (incf nnimap-counter) 20))
         (nnheader-message 6 "nnimap: Receiving headers... %d%%"
! 			 (/ (* nnimap-counter 100) nnimap-length)))
!   (with-current-buffer nntp-server-buffer
!     (nnheader-insert-nov
!      (vector imap-current-message
! 	     (nnimap-replace-tabs 
! 	      (imap-message-envelope-subject imap-current-message))
! 	     (nnimap-replace-tabs
! 	      (imap-envelope-from
! 	       (car-safe (imap-message-envelope-from
! 			  imap-current-message))))
! 	     (nnimap-replace-tabs 
! 	      (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
! 	     nil)))) ;; extra-headers
  
  (defun nnimap-retrieve-headers-store-uids ()
    (setq nnimap-uids (cons imap-current-message nnimap-uids)))
***************
*** 333,361 ****
        (and (numberp nnmail-large-newsgroup)
  	   (> nnimap-length nnmail-large-newsgroup)
  	   (nnheader-message 6 "nnimap: Receiving headers...done"))
-       (with-current-buffer nntp-server-buffer
- 	(dolist (uid uids)
- 	  (nnheader-insert-nov
- 	   (vector uid
- 		   (nnimap-replace-tabs (imap-message-envelope-subject uid))
- 		   (nnimap-replace-tabs 
- 		    (imap-envelope-from 
- 		     (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))
- 		   (imap-message-get uid 'RFC822.SIZE)
- 		   (imap-body-lines (imap-message-body uid))
- 		   nil ;; xref
- 		   nil)))) ;; extra-headers
        'nov)))
  
  (defun nnimap-open-connection (server)
--- 359,364 ----