* 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 (file)
--- 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 (file)
--- 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))