((string-match field "cc")
(setq get-func 'elmo-msgdb-overview-entity-get-cc))
((string-match field "since")
((string-match field "cc")
(setq get-func 'elmo-msgdb-overview-entity-get-cc))
((string-match field "since")
((string-match field "body")
(setq server-side-search (vector 'match "body" value)))
((member field elmo-msgdb-extra-fields)
((string-match field "body")
(setq server-side-search (vector 'match "body" value)))
((member field elmo-msgdb-extra-fields)
(message "Searching...")
(let ((elmo-mime-charset wl-summary-buffer-mime-charset))
(setq result (elmo-search wl-summary-buffer-folder-name
(message "Searching...")
(let ((elmo-mime-charset wl-summary-buffer-mime-charset))
(setq result (elmo-search wl-summary-buffer-folder-name
(if from-list
(setq result (elmo-list-filter from-list result)))
(message "%d message(s) are picked." (length result)))
(if from-list
(setq result (elmo-list-filter from-list result)))
(message "%d message(s) are picked." (length result)))