nnimap 0.3.26 released

[Simon Josefsson <jas@pdc.kth.se>]

Test before release. Test before release. The PEEK stuff didn't really
work. :-)

Get it from http://vic20.dzp.se/gnus-imap/nnimap.tar.gz.

/s

1998-08-23 14:40:47  Simon Josefsson  <jas@pdc.kth.se>

	* nnimap 0.3.26 released.

1998-08-23 14:28:36  Simon Josefsson  <jas@pdc.kth.se>

	* nnimap.el (nnimap-request-article-part): New argument, peek.
	(nnimap-request-body): 
	(nnimap-request-article): Use it.

Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.55 nnimap/ChangeLog:1.56
*** nnimap/ChangeLog:1.55	Sun Aug 23 05:20:39 1998
--- nnimap/ChangeLog	Sun Aug 23 05:42:29 1998
***************
*** 1,3 ****
--- 1,13 ----
+ 1998-08-23 14:40:47  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap 0.3.26 released.
+ 
+ 1998-08-23 14:28:36  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap.el (nnimap-request-article-part): New argument, peek.
+ 	(nnimap-request-body): 
+ 	(nnimap-request-article): Use it.
+ 
  1998-08-23 14:18:51  Simon Josefsson  <jas@pdc.kth.se>
  
  	* nnimap 0.3.25 released.
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.49 nnimap/nnimap.el:1.50
*** nnimap/nnimap.el:1.49	Sun Aug 23 05:19:45 1998
--- nnimap/nnimap.el	Sun Aug 23 05:34:26 1998
***************
*** 109,115 ****
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.3.25")
  
  ;; External variables.
  
--- 109,115 ----
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.3.26")
  
  ;; External variables.
  
***************
*** 506,519 ****
  	    (nnoo-status-message 'nnimap server))))))
  
  (deffoo nnimap-request-article (article &optional group server to-buffer)
!   (nnimap-request-article-part 'RFC822.PEEK article group server to-buffer))
  (deffoo nnimap-request-head    (article &optional group server to-buffer)
    (nnimap-request-article-part 'RFC822.HEADER article group server to-buffer))
  (deffoo nnimap-request-body    (article &optional group server to-buffer)
!   (nnimap-request-article-part 'RFC822.TEXT.PEEK article group server to-buffer))
  
  (defun nnimap-request-article-part (part article &optional 
! 					 group server to-buffer)
    (when (nnimap-possibly-change-group group server)
      (with-current-buffer nnimap-server-buffer
        (when (stringp article)
--- 506,519 ----
  	    (nnoo-status-message 'nnimap server))))))
  
  (deffoo nnimap-request-article (article &optional group server to-buffer)
!   (nnimap-request-article-part 'RFC822 article group server to-buffer t))
  (deffoo nnimap-request-head    (article &optional group server to-buffer)
    (nnimap-request-article-part 'RFC822.HEADER article group server to-buffer))
  (deffoo nnimap-request-body    (article &optional group server to-buffer)
!   (nnimap-request-article-part 'RFC822.TEXT article group server to-buffer t))
  
  (defun nnimap-request-article-part (part article &optional 
! 					 group server to-buffer peek)
    (when (nnimap-possibly-change-group group server)
      (with-current-buffer nnimap-server-buffer
        (when (stringp article)
***************
*** 527,533 ****
            (setq article (car articles))))
        (when article
          ;; Find the article by number
!         (nnimap-send-command-wait (format "UID FETCH %d (%s)" article part))
          (let ((text (imap-message-get article part)))
            (with-current-buffer (or to-buffer nntp-server-buffer)
              (erase-buffer)
--- 527,534 ----
            (setq article (car articles))))
        (when article
          ;; Find the article by number
!         (nnimap-send-command-wait (format "UID FETCH %d (%s%s)" article part
! 					  (if peek ".PEEK" "")))
          (let ((text (imap-message-get article part)))
            (with-current-buffer (or to-buffer nntp-server-buffer)
              (erase-buffer)