From: ari Date: Mon, 16 Dec 2002 04:12:48 +0000 (+0000) Subject: * lisp/nnimap.el (nnimap-callback): Use `nnimap-demule'. X-Git-Tag: t-gnus-6_15_10-00-quimby~31 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ff01d7cfee72355d5468eab3180c2fe145208d06;p=elisp%2Fgnus.git- * lisp/nnimap.el (nnimap-callback): Use `nnimap-demule'. (nnimap-request-article-part): Ditto. --- diff --git a/ChangeLog b/ChangeLog index 15c2b2b..1916657 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-12-16 ARISAWA Akihiro + + * lisp/nnimap.el (nnimap-callback): Use `nnimap-demule'. + (nnimap-request-article-part): Ditto. + 2002-12-10 Katsumi Yamaoka * texi/Makefile.in (%.info, .texi): Conceal control procedures. diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 417d7a4..7a06fcb 100644 --- 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"