[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