From: yamaoka <yamaoka>
Date: Wed, 22 Mar 2000 06:53:18 +0000 (+0000)
Subject: (nnimap-request-article-part): Returns nil if the article does not exist.
X-Git-Tag: t-gnus-6_14_1-17~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=859065c5fb13cfc53c343b3b4725337393bbfd28;p=elisp%2Fgnus.git-

(nnimap-request-article-part): Returns nil if the article does not exist.
---

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)