string-as-multibyte

[Keisuke Mori <ksk@ntts.com>]

I got a minor problem with nnimap-0.35 and Semi-gnus 6.8.0 so I
would suggest the following patch to avoid this.

The cause of the problem is that, string-as-multibyte is
emulated as a macro by the emulation package called APEL (or
poem?) that works with Semi-gnus. It doesn't necessarily mean
it's funcall-able that fboundp returns t in emacs-lisp,
especially for a macro.

Of course we could modify the emulation package to use a
function rather than a macro to emulate string-as-multibyte if
it's preferable, as Mr.Morioka mentioned in the other
mailing-list, but it will get less efficiency of the emulation
(probably not much though).

Thank you.
-- 
	Keisuke MORI / NTT Software Corp. California Branch
	E-Mail: ksk@ntts.com
*** nnimap.el.org	Fri Oct 16 20:06:38 1998
--- nnimap.el	Fri Oct 16 20:07:02 1998
***************
*** 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 (fboundp 'string-as-multibyte)
  				 'string-as-multibyte
  			       'identity) (imap-message-get article part))))
            (with-current-buffer (or to-buffer nntp-server-buffer)
--- 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 'string-as-multibyte)
  				 'string-as-multibyte
  			       'identity) (imap-message-get article part))))
            (with-current-buffer (or to-buffer nntp-server-buffer)