From: yoichi <yoichi>
Date: Tue, 19 Nov 2002 14:35:01 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-search-primitive): Cause error when the
X-Git-Tag: wl-2_11_1~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bc1ffd665ab1468f1cc51fd523e3fe4f4e59283c;p=elisp%2Fwanderlust.git

* elmo-nntp.el (elmo-nntp-search-primitive): Cause error when the
search-key is "body".
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6ae9ba5..b079a2d 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-nntp.el (elmo-nntp-search-primitive): Cause error when the
+	search-key is "body".
+
 2002-11-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-imap4.el (elmo-folder-list-subfolders): Check the return value
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 9e64227..d6bc455 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -1163,6 +1163,8 @@ Returns a list of cons cells like (NUMBER . VALUE)"
 	(if from-msgs
 	    (elmo-list-filter from-msgs result)
 	  result)))
+     ((string= "body" search-key)
+      (error "On-line search by body via nntp is not implemented"))
      (t
       (let ((val (elmo-filter-value condition))
 	    (negative (eq (elmo-filter-type condition) 'unmatch))