projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* elmo-nntp.el (elmo-folder-search): Body search is to search from
[elisp/wanderlust.git]
/
elmo
/
elmo-nntp.el
diff --git
a/elmo/elmo-nntp.el
b/elmo/elmo-nntp.el
index
74030a8
..
f894d69
100644
(file)
--- a/
elmo/elmo-nntp.el
+++ b/
elmo/elmo-nntp.el
@@
-1164,8
+1164,7
@@
Returns a list of cons cells like (NUMBER . VALUE)"
(elmo-list-filter from-msgs result)
result)))
((string= "body" search-key)
(elmo-list-filter from-msgs result)
result)))
((string= "body" search-key)
- (error
-"Search by BODY is not supported (Toggle the plug off to search from caches)"))
+ nil)
(t
(let ((val (elmo-filter-value condition))
(negative (eq (elmo-filter-type condition) 'unmatch))
(t
(let ((val (elmo-filter-value condition))
(negative (eq (elmo-filter-type condition) 'unmatch))
@@
-1214,7
+1213,8
@@
Returns a list of cons cells like (NUMBER . VALUE)"
(luna-define-method elmo-folder-search :around ((folder elmo-nntp-folder)
condition &optional from-msgs)
(luna-define-method elmo-folder-search :around ((folder elmo-nntp-folder)
condition &optional from-msgs)
- (if (elmo-folder-plugged-p folder)
+ (if (and (elmo-folder-plugged-p folder)
+ (not (string= "body" (elmo-filter-key condition))))
(elmo-nntp-search-internal folder condition from-msgs)
(luna-call-next-method)))
(elmo-nntp-search-internal folder condition from-msgs)
(luna-call-next-method)))