[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
nnimap 0.106 -> 0.107 patches
- To: nnimap@extundo.com
- Subject: nnimap 0.106 -> 0.107 patches
- From: Simon Josefsson <jas@pdc.kth.se>
- Date: 24 May 1999 15:45:19 +0200
- User-Agent: Gnus/5.070083 (Pterodactyl Gnus v0.83) Emacs/20.3.9
Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.210 nnimap/ChangeLog:1.211
*** nnimap/ChangeLog:1.210 Fri May 21 14:52:08 1999
--- nnimap/ChangeLog Mon May 24 06:33:12 1999
***************
*** 1,3 ****
--- 1,11 ----
+ 1999-05-24 Simon Josefsson <jas@pdc.kth.se>
+
+ * nnimap 0.107 released.
+
+ * imap.el (imap-parse-fetch): Upcase names.
+
+ * nnimap.el (nnimap-retrieve-headers-progress): Request upcased names.
+
1999-05-21 Simon Josefsson <jas@pdc.kth.se>
* nnimap 0.106 released.
Index: nnimap/imap.el
diff -c nnimap/imap.el:1.135 nnimap/imap.el:1.136
*** nnimap/imap.el:1.135 Fri May 21 14:24:27 1999
--- nnimap/imap.el Mon May 24 06:33:28 1999
***************
*** 1646,1653 ****
((eq token 'BODY)
(if (eq (char-before) ?\[)
(push (list
! (buffer-substring (point)
! (1- (search-forward "]" nil t)))
(and (eq (char-after) ?<)
(buffer-substring (1+ (point))
(search-forward ">" nil t)))
--- 1646,1653 ----
((eq token 'BODY)
(if (eq (char-before) ?\[)
(push (list
! (upcase (buffer-substring
! (point) (1- (search-forward "]" nil t))))
(and (eq (char-after) ?<)
(buffer-substring (1+ (point))
(search-forward ">" nil t)))
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.162 nnimap/nnimap.el:1.164
*** nnimap/nnimap.el:1.162 Fri May 21 14:52:20 1999
--- nnimap/nnimap.el Mon May 24 06:33:42 1999
***************
*** 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.")
--- 99,105 ----
(gnus-declare-backend "nnimap" 'mail 'address 'prompt-address
'physical-address)
! (defconst nnimap-version "nnimap 0.107")
(defvoo nnimap-address nil
"Address of physical IMAP server. If nil, use the virtual server's name.")
***************
*** 315,321 ****
(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)
--- 315,321 ----
(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)