From 859065c5fb13cfc53c343b3b4725337393bbfd28 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 22 Mar 2000 06:53:18 +0000 Subject: [PATCH] (nnimap-request-article-part): Returns nil if the article does not exist. --- lisp/nnimap.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 41082eb..fab328f 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -620,16 +620,17 @@ function is generally only called when Gnus is shutting down." (erase-buffer) (setq fetch-data (imap-fetch article part prop nil nnimap-server-buffer)) - (if (eq prop 'BODYDETAIL) - (insert (nth 2 (car fetch-data))) - (insert fetch-data)) - (nnheader-ms-strip-cr) - (gnus-message 9 "nnimap: Fetching (part of) article %d...done" - article) - (if (bobp) - (nnheader-report 'nnimap "No such article: %s" - (imap-error-text nnimap-server-buffer)) - (cons group article))) + (when fetch-data + (if (eq prop 'BODYDETAIL) + (insert (nth 2 (car fetch-data))) + (insert fetch-data)) + (nnheader-ms-strip-cr) + (gnus-message 9 "nnimap: Fetching (part of) article %d...done" + article) + (if (bobp) + (nnheader-report 'nnimap "No such article: %s" + (imap-error-text nnimap-server-buffer)) + (cons group article)))) (add-hook 'imap-fetch-data-hook 'nnimap-callback) (setq nnimap-callback-callback-function nnheader-callback-function nnimap-callback-buffer nntp-server-buffer) -- 1.7.10.4