[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
nnimap 0.129 -> 0.130 patches
- To: nnimap@extundo.com
- Subject: nnimap 0.129 -> 0.130 patches
- From: Simon Josefsson <jas@pdc.kth.se>
- Date: 12 Sep 1999 13:38:14 +0200
- User-Agent: Gnus/5.070096 (Pterodactyl Gnus v0.96) Emacs/20.4
Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.277 nnimap/ChangeLog:1.284
*** nnimap/ChangeLog:1.277 Sat Aug 21 12:10:38 1999
--- nnimap/ChangeLog Sun Sep 12 04:35:23 1999
***************
*** 1,3 ****
--- 1,33 ----
+ 1999-09-12 Simon Josefsson <jas@pdc.kth.se>
+
+ * nnimap 0.130 released.
+
+ * Makefile (nnimap.info): Use Emacs instead of makeinfo.
+
+ * nnimap.el (nnimap-split-articles): Add to split history.
+
+ 1999-09-05 Simon Josefsson <jas@pdc.kth.se>
+
+ * nnimap.el (nnimap-possibly-change-group): Query user to proceed
+ when uidvalidity changes are detected.
+
+ 1999-08-30 Simon Josefsson <jas@pdc.kth.se>
+
+ * imap.el (imap-message-copyuid-1): Apply 'max.
+ (imap-message-appenduid-1): Ditto.
+
+ 1999-08-28 Simon Josefsson <jas@pdc.kth.se>
+
+ * Makefile (nnimap.elc): Don't depend on rfc2104.elc.
+
+ * nnimap.el (nnimap-callback-buffer): New variable.
+ (nnimap-callback): Use it.
+ (nnimap-request-article-part): Set it.
+
+ 1999-08-22 Simon Josefsson <jas@pdc.kth.se>
+
+ * nnimap.el (nnimap-request-accept-article): Use new api.
+
1999-08-21 Simon Josefsson <jas@pdc.kth.se>
* nnimap 0.129 released.
Index: nnimap/Makefile
diff -c nnimap/Makefile:1.23 nnimap/Makefile:1.25
*** nnimap/Makefile:1.23 Mon Jul 12 06:11:52 1999
--- nnimap/Makefile Sun Sep 12 04:26:43 1999
***************
*** 20,33 ****
imap.elc: rfc2104.elc ssl.elc utf7.elc imap.el
$(ELCC) $(GNUS) -l ssl.elc -l base64 -l md5 -l rfc2104.elc -l utf7.elc -f batch-byte-compile imap.el
! nnimap.elc: rfc2104.elc imap.elc nnimap.el
$(ELCC) $(GNUS) -l ssl.elc -l base64 -l md5 -l rfc2104.elc -l utf7.elc -l imap.elc -f batch-byte-compile nnimap.el
nnimap.html: nnimap.texi
texi2html -menu -monolithic nnimap.texi
nnimap.info: nnimap.texi
! makeinfo nnimap.texi
clean:
rm -f rfc2104.elc ssl.elc utf7.elc imap.elc nnimap.elc nnimap.info nnimap.html
--- 20,33 ----
imap.elc: rfc2104.elc ssl.elc utf7.elc imap.el
$(ELCC) $(GNUS) -l ssl.elc -l base64 -l md5 -l rfc2104.elc -l utf7.elc -f batch-byte-compile imap.el
! nnimap.elc: imap.elc nnimap.el
$(ELCC) $(GNUS) -l ssl.elc -l base64 -l md5 -l rfc2104.elc -l utf7.elc -l imap.elc -f batch-byte-compile nnimap.el
nnimap.html: nnimap.texi
texi2html -menu -monolithic nnimap.texi
nnimap.info: nnimap.texi
! $(ELCC) -eval '(and (find-file "nnimap.texi") (texinfo-format-buffer) (save-buffer))'
clean:
rm -f rfc2104.elc ssl.elc utf7.elc imap.elc nnimap.elc nnimap.info nnimap.html
Index: nnimap/imap.el
diff -c nnimap/imap.el:1.169 nnimap/imap.el:1.170
*** nnimap/imap.el:1.169 Sat Aug 21 12:05:20 1999
--- nnimap/imap.el Fri Sep 3 04:01:26 1999
***************
*** 1143,1149 ****
(prog1
(and (imap-fetch "*" "UID")
(list (imap-mailbox-get-1 'uidvalidity mailbox)
! (max (imap-message-map (lambda (uid prop) uid) 'UID))))
(if old-mailbox
(imap-mailbox-select old-mailbox (eq state 'examine))
(imap-mailbox-unselect)))))))
--- 1143,1150 ----
(prog1
(and (imap-fetch "*" "UID")
(list (imap-mailbox-get-1 'uidvalidity mailbox)
! (apply 'max (imap-message-map
! (lambda (uid prop) uid) 'UID))))
(if old-mailbox
(imap-mailbox-select old-mailbox (eq state 'examine))
(imap-mailbox-unselect)))))))
***************
*** 1183,1189 ****
(prog1
(and (imap-fetch "*" "UID")
(list (imap-mailbox-get-1 'uidvalidity mailbox)
! (max (imap-message-map (lambda (uid prop) uid) 'UID))))
(if old-mailbox
(imap-mailbox-select old-mailbox (eq state 'examine))
(imap-mailbox-unselect)))))))
--- 1184,1191 ----
(prog1
(and (imap-fetch "*" "UID")
(list (imap-mailbox-get-1 'uidvalidity mailbox)
! (apply 'max (imap-message-map
! (lambda (uid prop) uid) 'UID))))
(if old-mailbox
(imap-mailbox-select old-mailbox (eq state 'examine))
(imap-mailbox-unselect)))))))
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.224 nnimap/nnimap.el:1.230
*** nnimap/nnimap.el:1.224 Sat Aug 21 12:06:33 1999
--- nnimap/nnimap.el Sun Sep 12 04:12:13 1999
***************
*** 50,56 ****
;; request-list-newsgroups, request-regenerate
;; list-active-group,
;; request-associate-buffer, request-restore-buffer,
! ;; o Do The Right Thing when UIDVALIDITY changes (fixed?)
;; o Support RFC2221 (Login referrals)
;; o IMAP2BIS compatibility? (RFC2061)
;; o ACAP stuff (perhaps a different project, would be nice to ACAPify
--- 50,56 ----
;; request-list-newsgroups, request-regenerate
;; list-active-group,
;; request-associate-buffer, request-restore-buffer,
! ;; o Do The Right Thing when UIDVALIDITY changes (what's the right thing?)
;; o Support RFC2221 (Login referrals)
;; o IMAP2BIS compatibility? (RFC2061)
;; o ACAP stuff (perhaps a different project, would be nice to ACAPify
***************
*** 78,84 ****
(gnus-declare-backend "nnimap" 'post-mail 'address 'prompt-address
'physical-address)
! (defconst nnimap-version "nnimap 0.129")
(defvoo nnimap-address nil
"Address of physical IMAP server. If nil, use the virtual server's name.")
--- 78,84 ----
(gnus-declare-backend "nnimap" 'post-mail 'address 'prompt-address
'physical-address)
! (defconst nnimap-version "nnimap 0.130")
(defvoo nnimap-address nil
"Address of physical IMAP server. If nil, use the virtual server's name.")
***************
*** 270,275 ****
--- 270,277 ----
(defvar nnimap-counter)
(defvar nnimap-callback-callback-function nil
"Gnus callback the nnimap asynchronous callback should call.")
+ (defvar nnimap-callback-buffer nil
+ "Which buffer the asynchronous article prefetch callback should work in.")
;; Various server variables.
***************
*** 338,345 ****
(if (or (null group) (imap-current-mailbox-p group))
imap-current-mailbox
(if (imap-mailbox-select group)
! (if (nnimap-verify-uidvalidity group
! (or server nnimap-current-server))
imap-current-mailbox
(imap-mailbox-unselect)
(error "nnimap: Group %s is not uid-valid." group))
--- 340,349 ----
(if (or (null group) (imap-current-mailbox-p group))
imap-current-mailbox
(if (imap-mailbox-select group)
! (if (or (nnimap-verify-uidvalidity
! group (or server nnimap-current-server))
! (yes-or-no-p
! "nnimap: Group %s is not uidvalid. Continue? "))
imap-current-mailbox
(imap-mailbox-unselect)
(error "nnimap: Group %s is not uid-valid." group))
***************
*** 606,612 ****
(defun nnimap-callback ()
(remove-hook 'imap-fetch-data-hook 'nnimap-callback)
! (with-current-buffer gnus-async-prefetch-article-buffer
(insert
(with-current-buffer nnimap-server-buffer
(nnimap-demule (imap-message-get (imap-current-message) 'RFC822)))) ;xxx
--- 610,616 ----
(defun nnimap-callback ()
(remove-hook 'imap-fetch-data-hook 'nnimap-callback)
! (with-current-buffer nnimap-callback-buffer
(insert
(with-current-buffer nnimap-server-buffer
(nnimap-demule (imap-message-get (imap-current-message) 'RFC822)))) ;xxx
***************
*** 636,642 ****
(imap-error-text nnimap-server-buffer))
(cons group article)))
(add-hook 'imap-fetch-data-hook 'nnimap-callback)
! (setq nnimap-callback-callback-function nnheader-callback-function)
(imap-fetch-asynch article part nil nnimap-server-buffer)
(cons group article))))))
--- 640,647 ----
(imap-error-text nnimap-server-buffer))
(cons group article)))
(add-hook 'imap-fetch-data-hook 'nnimap-callback)
! (setq nnimap-callback-callback-function nnheader-callback-function
! nnimap-callback-buffer nntp-server-buffer)
(imap-fetch-asynch article part nil nnimap-server-buffer)
(cons group article))))))
***************
*** 907,913 ****
(progn
(message "IMAP split moved %s:%s:%d to %s" server inbox
article to-group)
! (setq removeorig t))
(message "IMAP split failed to move %s:%s:%d to %s" server
inbox article to-group)))
;; remove article if it was successfully copied somewhere
--- 912,920 ----
(progn
(message "IMAP split moved %s:%s:%d to %s" server inbox
article to-group)
! (setq removeorig t)
! ;; Add the group-art list to the history list.
! (push (list (cons to-group 0)) nnmail-split-history))
(message "IMAP split failed to move %s:%s:%d to %s" server
inbox article to-group)))
;; remove article if it was successfully copied somewhere
***************
*** 1038,1044 ****
nnimap-current-move-group)
(imap-message-copy (number-to-string
nnimap-current-move-article)
! group nnimap-server-buffer))
;; turn into rfc822 format (\r\n eol's)
(with-current-buffer (current-buffer)
(goto-char (point-min))
--- 1045,1052 ----
nnimap-current-move-group)
(imap-message-copy (number-to-string
nnimap-current-move-article)
! group 'dontcreate nil
! nnimap-server-buffer))
;; turn into rfc822 format (\r\n eol's)
(with-current-buffer (current-buffer)
(goto-char (point-min))