nnimap 0.36 -> 0.37 patches

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

Index: nnimap/ChangeLog
diff -c nnimap/ChangeLog:1.109 nnimap/ChangeLog:1.110
*** nnimap/ChangeLog:1.109	Sun Oct 18 13:59:13 1998
--- nnimap/ChangeLog	Tue Oct 20 05:23:31 1998
***************
*** 1,3 ****
--- 1,11 ----
+ 1998-10-20 14:21:00  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* nnimap 0.37 released.
+ 
+ 1998-10-20 12:47:04  Keisuke Mori <ksk@ntts.com>
+ 
+ 	* nnimap.el (nnimap-request-article-part): Check fboundp.
+ 
  1998-10-18 22:56:28  Simon Josefsson  <jas@pdc.kth.se>
  
  	* nnimap 0.36 released.
Index: nnimap/nnimap.el
diff -c nnimap/nnimap.el:1.87 nnimap/nnimap.el:1.88
*** nnimap/nnimap.el:1.87	Sun Oct 18 13:58:56 1998
--- nnimap/nnimap.el	Tue Oct 20 05:24:26 1998
***************
*** 95,101 ****
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.36")
  
  ;; Various server variables.
  
--- 95,101 ----
  
  (nnoo-declare nnimap) ; we derive from no one
  
! (defconst nnimap-version "nnimap 0.37")
  
  ;; Various server variables.
  
***************
*** 529,535 ****
          ;; Find the article by number
          (nnimap-send-command-wait (format "UID FETCH %d (%s%s)" article part
  					  (if add-peek ".PEEK" "")))
!         (let ((text (funcall (if (subrp (symbol-function 'string-as-multibyte))
  				 'string-as-multibyte
  			       'identity) (imap-message-get article part))))
            (with-current-buffer (or to-buffer nntp-server-buffer)
--- 529,537 ----
          ;; Find the article by number
          (nnimap-send-command-wait (format "UID FETCH %d (%s%s)" article part
  					  (if add-peek ".PEEK" "")))
!         (let ((text (funcall (if (and (fboundp 'string-as-multibyte)
! 				      (subrp (symbol-function 
! 					      'string-as-multibyte)))
  				 'string-as-multibyte
  			       'identity) (imap-message-get article part))))
            (with-current-buffer (or to-buffer nntp-server-buffer)