* lisp/nnimap.el (nnimap-callback): Use `nnimap-demule'.

(nnimap-request-article-part): Ditto.

diff --git a/ChangeLog b/ChangeLog
index 15c2b2b..1916657 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-16  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+       * lisp/nnimap.el (nnimap-callback): Use `nnimap-demule'.
+       (nnimap-request-article-part): Ditto.
+       
 2002-12-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * texi/Makefile.in (%.info, .texi): Conceal control procedures.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 417d7a4..7a06fcb 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -794,11 +794,12 @@ function is generally only called when Gnus is shutting down."
     (with-current-buffer buffer
       (insert
        (with-current-buffer nnimap-server-buffer
-        (if (imap-capability 'IMAP4rev1)
-            ;; xxx don't just use car? alist doesn't contain
-            ;; anything else now, but it might...
-            (nth 2 (car (imap-message-get article 'BODYDETAIL)))
-          (imap-message-get article 'RFC822))))
+        (nnimap-demule
+         (if (imap-capability 'IMAP4rev1)
+             ;; xxx don't just use car? alist doesn't contain
+             ;; anything else now, but it might...
+             (nth 2 (car (imap-message-get article 'BODYDETAIL)))
+           (imap-message-get article 'RFC822)))))
       (nnheader-ms-strip-cr)
       (funcall gnus-callback t))))
 
@@ -820,7 +821,7 @@ function is generally only called when Gnus is shutting down."
              (let ((data (imap-fetch article part prop nil
                                      nnimap-server-buffer)))
                (when data
-                 (insert (if detail (nth 2 (car data)) data))
+                 (insert (nnimap-demule (if detail (nth 2 (car data)) data)))
                  (nnheader-ms-strip-cr)
                  (gnus-message
                   10 "nnimap: Fetching (part of) article %d from %s...done"