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

nnimap 0.88 -> 0.89 patches



Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.157 nnimap/ChangeLog:1.162
*** nnimap/ChangeLog:1.157	Tue Dec 22 06:26:32 1998
--- nnimap/ChangeLog	Sat Dec 26 13:06:48 1998
***************
*** 1,3 ****
--- 1,24 ----
+ 1998-12-26 22:04:14  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap 0.89 released.
+ 
+ 1998-12-26 21:25:48  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* imap.el (imap-parse-flag-list): Flags are strings.
+ 
+ 1998-12-26 19:18:48  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap.el (nnimap-save-info-hook): 
+ 	(nnimap-update-flags-hook): Removed (done by Gnus).
+ 
+ 1998-12-24 02:51:43  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* imap.el (imap-kerberos4-open): Check more.
+ 
+ 1998-12-24 02:43:54  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* imap.el (imap-wait-for-tag): Loop every 1 second.
+ 
  1998-12-22 15:24:11  Simon Josefsson  <jas@pdc.kth.se>
  
  	* nnimap 0.88 released.
Index: nnimap/imap.el
diff -c nnimap/imap.el:1.89 nnimap/imap.el:1.96
*** nnimap/imap.el:1.89	Mon Dec 21 12:26:15 1998
--- nnimap/imap.el	Sat Dec 26 12:49:02 1998
***************
*** 354,362 ****
  	  (erase-buffer)
  	  (message "Kerberized IMAP connection: %s" response)
  	  (if (let ((case-fold-search nil)) 
! 		(not (string-match "failed" response)))
  	      process
! 	    (imap-send-command-wait "LOGOUT")
  	    (delete-process process)
  	    nil))))))
    
--- 354,364 ----
  	  (erase-buffer)
  	  (message "Kerberized IMAP connection: %s" response)
  	  (if (let ((case-fold-search nil)) 
! 		(and response
! 		     (not (string-match "failed" response))))
  	      process
! 	    (if (memq (process-status process) '(open run))
! 		(imap-send-command-wait "LOGOUT"))
  	    (delete-process process)
  	    nil))))))
    
***************
*** 861,870 ****
  (defun imap-wait-for-tag (tag &optional buffer)
    (with-current-buffer (or buffer (current-buffer))
      (while (< imap-reached-tag tag)
!       (accept-process-output imap-process))
      (or (assq tag imap-failed-tags)
  	'OK)))
! 	
  (defun imap-sentinel (process string)
    (delete-process process))
  
--- 863,874 ----
  (defun imap-wait-for-tag (tag &optional buffer)
    (with-current-buffer (or buffer (current-buffer))
      (while (< imap-reached-tag tag)
!       (or (and (not (memq (process-status imap-process) '(open run)))
! 	       (sit-for 1))
! 	  (accept-process-output imap-process 1)))
      (or (assq tag imap-failed-tags)
  	'OK)))
! 
  (defun imap-sentinel (process string)
    (delete-process process))
  
***************
*** 1378,1384 ****
  	pos)
      (while (setq pos (string-match "\\\\" str (and pos (+ 2 pos))))
        (setq str (replace-match "\\\\" nil t str)))
!     (read str)))
  
  ;;   envelope        = "(" env-date SP env-subject SP env-from SP env-sender SP
  ;;                     env-reply-to SP env-to SP env-cc SP env-bcc SP
--- 1382,1388 ----
  	pos)
      (while (setq pos (string-match "\\\\" str (and pos (+ 2 pos))))
        (setq str (replace-match "\\\\" nil t str)))
!     (mapcar 'symbol-name (read str))))
  
  ;;   envelope        = "(" env-date SP env-subject SP env-from SP env-sender SP
  ;;                     env-reply-to SP env-to SP env-cc SP env-bcc SP
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.117 nnimap/nnimap.el:1.119
*** nnimap/nnimap.el:1.117	Tue Dec 22 06:26:44 1998
--- nnimap/nnimap.el	Sat Dec 26 13:06:37 1998
***************
*** 96,102 ****
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.88")
  
  ;; Various server variables.
  
--- 96,102 ----
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.89")
  
  ;; Various server variables.
  
***************
*** 1296,1345 ****
  			   (eq 'NO (car status)))
  		  (error "Can't set ACL: %s" (cadr status))))))))))))
  
- ;;; Flag stuff.
- 
- (defun nnimap-save-info-hook ()
-   (make-variable-buffer-local 'nnimap-saved-info)
-   (setq nnimap-saved-info (copy-list (gnus-get-info gnus-newsgroup-name))))
- 
- (defun nnimap-update-flags-hook (&rest foo)
-   (when (eq 'nnimap (car (gnus-find-method-for-group gnus-newsgroup-name)))
-     (with-current-buffer gnus-summary-buffer
-       (let ((group (gnus-group-real-name gnus-newsgroup-name))
- 	    (old-info nnimap-saved-info)
- 	    (new-info (gnus-get-info gnus-newsgroup-name))
- 	    delta-marks)
- 
- 	;; Update read marks.
- 	
- 	(let* ((new-read (gnus-info-read new-info))
- 	       (old-read (gnus-info-read old-info))
- 	       (add (gnus-remove-from-range new-read old-read))
- 	       (del (gnus-remove-from-range old-read new-read)))
- 	  (if add
- 	      (push (list add 'add '(read)) delta-marks))
- 	  (if del
- 	      (push (list del 'del '(read)) delta-marks)))
- 	
- 	;; Update marks.
- 	
- 	(let ((types gnus-article-mark-lists) 
- 	      type old-mark new-mark add del)
- 	  (while (setq type (cdr (pop types)))
- 	    ;; cache, score, bookmark are not proper flags.
- 	    (unless (memq type '(cache score bookmark))
- 	      (setq old-mark (cdr (assq type (gnus-info-marks old-info)))
- 		    new-mark (cdr (assq type (gnus-info-marks new-info)))
- 		    add (gnus-remove-from-range new-mark old-mark)
- 		    del (gnus-remove-from-range old-mark new-mark))
- 	      (if add
- 		  (push (list add 'add (list type)) delta-marks))
- 	      (if del
- 		  (push (list del 'del (list type)) delta-marks)))))
- 	
- 	(nnimap-request-set-mark group delta-marks)
- 	(nnimap-expunge-close-group)))))
- 
  ;;; Gnus glue
  
  (defun nnimap-group-mode-hook ()
--- 1296,1301 ----
***************
*** 1351,1359 ****
      'gnus-group-nnimap-expunge))
  (add-hook 'gnus-group-mode-hook 'nnimap-group-mode-hook)
  
- (add-hook 'gnus-summary-prepare-hook 'nnimap-save-info-hook)
- (add-hook 'gnus-summary-exit-hook 'nnimap-update-flags-hook)
- 
- ;; We're done.
- 
  (provide 'nnimap)
--- 1307,1312 ----
      'gnus-group-nnimap-expunge))
  (add-hook 'gnus-group-mode-hook 'nnimap-group-mode-hook)
  
  (provide 'nnimap)
+ 
+ ;;; nnimap.el ends here