* elmo-util.el (elmo-delete-match-files): New function.
[elisp/wanderlust.git] / elmo / ChangeLog
index 6ffc8dc..7080578 100644 (file)
@@ -1,3 +1,546 @@
+2002-05-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-util.el (elmo-delete-match-files): New function.
+
+       * elmo-localdir.el (elmo-folder-delete): Use elmo-delete-match-files
+       instead of elmo-delete-directory.
+
+       * elmo-shimbun.el (elmo-shimbun-get-headers): Bind
+       elmo-hash-minimun-size as 63.
+
+       * elmo-multi.el (elmo-multi-folder-diff): Use elmo-diff-new if
+       elmo-diff-unread is nil.
+
+       * elmo-imap4.el (elmo-folder-open): Fix.
+
+       * elmo.el (elmo-message-mark): Rewrite.
+       (elmo-message-field): Ditto.
+       (elmo-message-set-mark): Ditto.
+       (elmo-folder-replace-marks): New function.
+       (elmo-generic-folder-append-msgdb): Removed third argument for
+       elmo-msgdb-append.
+       (elmo-folder-synchronize): Use elmo-msgdb-seen-list.
+       (elmo-msgdb-load): New implementation.
+
+       * elmo-vars.el (elmo-use-overview-hashtb): Removed.
+
+       * elmo-util.el (elmo-list-insert): New implementation.
+
+       * elmo-multi.el (elmo-multi-folder-append-msgdb): Removed third
+       argument for elmo-msgdb-append.
+       
+
+       * elmo-msgdb.el (elmo-load-msgdb): New function.
+       (elmo-make-msgdb): Ditto.
+       (elmo-msgdb-get-index): New inline function.
+       (elmo-msgdb-set-index): Ditto.
+       (elmo-msgdb-get-entity-hashtb): Ditto.
+       (elmo-msgdb-get-mark-hashtb): Ditto.
+       (elmo-msgdb-get-mark): Ditto.
+       (elmo-msgdb-set-mark): Ditto.
+       (elmo-msgdb-count-marks): Ditto.
+       (elmo-msgdb-get-number): Ditto.
+       (elmo-msgdb-get-field): Ditto.
+       (elmo-msgdb-seen-list): Ditto.
+       (elmo-msgdb-mark-alist-set): Renamed from elmo-msgdb-mark-set.
+       (elmo-msgdb-delete-msgs): Follow the changes above.
+       (elmo-msgdb-overview-get-entity): Ditto.
+       (elmo-msgdb-add-msgs-to-seen-list): Ditto.
+       (elmo-msgdb-clear-index): Renamed from elmo-msgdb-clear-overview-hastb
+       and rewritten.
+       (elmo-msgdb-make-index): Likewise.
+       (elmo-msgdb-append): Removed third argument.
+       (elmo-msgdb-clear): Clear index as nil.
+       (elmo-folder-set-info-hashtb): Removed.
+       (elmo-folder-set-info-max-by-numdb): Ditto.
+       (elmo-folder-info-make-hashtb): Ditto.
+
+       * elmo-localdir.el (elmo-folder-pack-numbers): Use elmo-make-msgdb.
+
+       * elmo-map.el (elmo-folder-pack-number): Ditto.
+
+2002-04-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-version.el (elmo-version): Up to 2.9.10.
+
+       * elmo-util.el (elmo-get-hash-val): Check the 1st argument is string.
+
+       * elmo-msgdb.el (elmo-msgdb-get-parent-entity): New inline function.
+
+2002-04-26  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-utils.el (elmo-make-directory): Add option.
+       Default file mode is 700.
+
+2002-04-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-shimbun.el (elmo-folder-local-p): Defined.
+
+2002-04-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-shimbun.el (elmo-shimbun-entity-to-header): Decode by
+       mime-charset.
+
+       * elmo-imap4.el (elmo-imap4-search-internal-primitive): Added "larger"
+       and "smaller".
+
+2002-04-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-shimbun.el (elomo-shimbun-folder): Added entity-hash slot.
+       (elmo-shimbun-folder-entity-hash): New function.
+       (elmo-shimbun-folder-shimbun-header): Ditto.
+       (elmo-shimbun-entity-to-header): Ditto.
+       (elmo-shimbun-msgdb-to-headers): Removed.
+       (elmo-shimbun-folder-setup): Ditto.
+       (elmo-shimbun-folder-header-hash-setup): Don't use x-shimbun-id
+       for hash key.
+       (elmo-shimbun-get-headers): Set new headers only to slot. Don't
+       call `elmo-shimbun-folder-header-hash-setup' if headers is nil.
+       Removed useless local bind.
+       (elmo-folder-open-internal): Don't call
+       `elmo-shimbun-folder-setup'.
+       (elmo-folder-close-internal): Clear entity-hash slot.
+       (elmo-folder-clear): Ditto.
+       (elmo-shimbun-msgdb-create-entity): Use
+       `elmo-shimbun-folder-shimbun-header'.
+       (elmo-map-message-fetch): Ditto.
+       (elmo-shimbun-update-overview): Use overview entity instead of
+       shimbun header to lookup id by references.
+       (elmo-map-folder-list-message-locations): Use not only headers but
+       also overviews to list locations.
+
+2002-04-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-net.el (elmo-folder-exists-p): If unplugged, guessed by
+       msgdb path.
+
+       * elmo-pop3.el (elmo-folder-exists-p): Ditto.
+
+2002-04-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-util.el (elmo-read-search-condition-internal): Give default
+       value for date.
+
+2002-04-04  Mito  <mito@mxa.nes.nec.co.jp>
+
+       * elmo-util.el (elmo-condition-parse-search-value): Accept
+       YYYY-MM-DD format to search.
+       * elmo-date.el (elmo-date-get-datevec): Likewise.
+
+2002-04-04  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-nntp.el (elmo-nntp-list-folders-get-cache): Delete
+       debugging code.
+
+2002-04-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-folder-creatable-p): Changed default value to nil
+       from t.
+
+       * elmo-pop3.el (elmo-folder-exists-p): Return nil if unplugged.
+
+       * elmo-nntp.el (elmo-folder-exists-p-plugged): Divided plugged
+       case from `elmo-folder-exists-p'.
+       (elmo-folder-exists-p): Removed.
+       (elmo-folder-creatable-p) Ditto.
+
+       * elmo-net.el (elmo-folder-create): Defined.
+       (elmo-folder-create-unplugged): New function.
+       (elmo-folder-exists-p): Changed default value to nil from t.
+
+       * elmo-imap4.el (elmo-folder-creatable-p): Defined.
+       (elmo-folder-create-plugged): Renamed from `elmo-folder-create'.
+
+       * elmo-dop.el (elmo-folder-create-dop): Renamed from
+       `elmo-create-folder-dop' and append queue
+       'elmo-folder-create-dop-delayed instead of 'elmo-folder-create.
+       (elmo-folder-create-dop-delayed): New function.
+
+       * elmo-cache.el (elmo-folder-creatable-p): Ditto.
+
+       * elmo-shimbun.el (elmo-folder-creatable-p): Ditto.
+
+       * elmo-sendlog.el (elmo-folder-creatable-p): Ditto.
+       (elmo-folder-writable-p) : Ditto.
+
+       * elmo-version.el (elmo-version): Up to 2.9.9.
+
+2002-03-26  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo.el (elmo-find-fetch-strategy): Don't use file cache when
+       `elmo-message-use-cache-p' returns nil.
+       * elmo-mime.el (elmo-mime-display-as-is): Ditto.
+       (ignore cache file and refer the substance in local folders)
+
+2002-03-12  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-version.el (elmo-version): Up to 2.9.8.
+
+2002-02-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-version.el (elmo-version): Up to 2.9.7.
+
+       * elmo-imap4.el (elmo-folder-list-subfolders): Fixed logic.
+
+2002-02-18  Daiki Ueno  <ueno@unixuser.org>
+
+       * elmo-nntp.el (elmo-nntp-send-mode-reader): Don't throw an error.
+
+2002-02-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-nmz.el (elmo-nmz-args): Changed default argumnet to --late
+       from --early.
+       (elmo-map-folder-list-message-locations): Reverse location list.
+
+2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-nntp.el (elmo-nntp-list-folders-get-cache): Fix.
+
+2002-01-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-nntp.el (elmo-nntp-list-folders-get-cache): Use group and server
+       as a key.
+       (elmo-nntp-folder-list-subfolders): Follow the change above.
+
+2002-01-27  Takaaki MORIYAMA  <aka@iris.eonet.ne.jp>
+
+       * elmo-imap4.el (elmo-folder-list-subfolders): Don't omit user
+       name if authentication type is specified.
+
+2002-01-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo.el (elmo-default-imap4-stream-type): Define as obsolete
+       variable.
+       (elmo-default-nntp-stream-type): Ditto.
+       (elmo-default-pop3-stream-type): Ditto.
+
+2002-01-25  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+       * elmo.el (elmo-generic-folder-append-messages): Disable multibyte.
+
+2002-01-23  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-localnews.el (elmo-localnews-folder-path): Moved from
+       elmo-vars.el.
+       * elmo-maildir.el (elmo-maildir-folder-path): Ditto.
+
+       * elmo-vars.el (elmo-localnews-folder-path): Removed.
+       (elmo-maildir-folder-path): Ditto.
+       (elmo-maildir-list): Ditto (abolished).
+
+2002-01-23  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-version.el (elmo-version): Up to 2.9.6.
+
+2002-01-22  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-vars.el (elmo-localnews-folder-path): Make customizable.
+       (elmo-maildir-folder-path): Ditto.
+       (elmo-msgdb-directory): Ditto.
+       (elmo-passwd-life-time): Ditto.
+       (elmo-msgdb-extra-fields): Ditto.
+       (elmo-enable-disconnected-operation): Ditto.
+
+2002-01-22  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-vars.el (elmo-imap4-default-authenticate-type): Give
+       other choices.
+       (elmo-pop3-default-authenticate-type): Ditto.
+
+2002-01-22  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-vars.el (elmo-imap4-default-authenticate-type): Give
+       choices for custom.
+       (elmo-pop3-default-authenticate-type): Ditto.
+
+2002-01-22  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-imap4.el (elmo-folder-rename-internal): Change current
+       mailbox to new-folder.
+
+2002-01-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-imap4-folder-diff-plugged): If unread is
+       less than new, set new as unread.
+
+       * elmo-util.el (elmo-string): Don't put text-property if nil.
+
+2002-01-21  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-imap4.el (elmo-folder-list-subfolders): Case sensitive.
+       * elmo-nntp.el (elmo-folder-list-subfolders): Ditto.
+
+2002-01-21  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-utils.el (elmo-read-search-condition-internal): REQUIRE-MATCH
+       is nil on `completing-read'.
+
+2002-01-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-imap4-extra-namespace-alist): Added grouping
+       for namespace part.
+       (elmo-imap4-parse-namespace-subr): Ditto.
+       (elmo-folder-list-subfolders): Append a delimiter when the specified
+       folder path is a root with namespace and does not end with delimiter.
+
+2002-01-20  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-folder-search-fast): Moved upwards rather than it
+       was used.
+
+2002-01-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-util.el (elmo-save-buffer): The first argument of message
+       is a format control string.
+
+2002-01-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-diff-new): Fixed (Adapted to doc-string of
+       `elmo-folder-diff').
+       (elmo-diff-unread): Likewise.
+
+2002-01-19  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-utils.el (elmo-read-search-condition-internal): REQUIRE-MATCH
+       is t on `completing-read'.
+
+2002-01-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-filter.el (elmo-filter-folder-list-unreads-internal): Call
+       method of target folder with self mark-alist if MARK-ALIST is nil.
+
+2002-01-19  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-version.el (elmo-version): Up to 2.9.5.
+
+2002-01-17  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-dop.el (elmo-dop-queue-merge): Implement.
+       (elmo-dop-merge-funcs): Remove.
+
+2002-01-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-util.el (elmo-file-cache-delete): Fixed last change;
+       Return t if PATH is directory, too.
+       Use `dolist' instead of while loop.
+
+2002-01-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-util.el (elmo-file-cache-delete): Return t if a cache file
+       is deleted.
+
+2002-01-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-net.el (elmo-folder-list-messages-plugged): Changed default
+       return value to t.
+       (elmo-folder-list-messages-unplugged): Return t if
+       elmo-enable-disconnected-operation is nil.
+
+       * elmo-pop3.el (elmo-folder-list-messages-plugged): Renamed from
+       `elmo-folder-list-messages-internal'.
+
+2002-01-07  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-nntp.el (elmo-nntp-read-response): Added `error-msg' argument.
+       Change to looking-at `[23][0-9]+'.
+       (elmo-network-initialize-session): Use 'error-msg'
+       * elmo-net.el (elmo-network-open-session): Set unplugged
+       if elmo-network-initialize-session returns 'elmo-open-err.
+
+2002-01-07  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-version.el (elmo-version): Up to 2.9.4.
+
+2002-01-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-nntp.el (elmo-folder-list-messages-plugged): Renamed from
+       `elmo-folder-list-messages-internal'.
+
+2002-01-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-folder-search): Defined. Fixed docstring.
+       (elmo-message-match-condition): New method.
+       (elmo-folder-search-fast): New inline function.
+       (elmo-msgdb-search): Removed.
+
+       * elmo-filter.el (elmo-folder-msgdb-create): Create from msgdb of
+       target folder if it is unplugged.
+       (elmo-folder-list-messages-internal): Return t if target folder is
+       unplugged and itself is persistent; In this case, use list be
+       searched already.
+
+       * elmo-msgdb.el (elmo-msgdb-search-internal): Removed.
+       (elmo-msgdb-search-internal-primitive): Ditto.
+       (elmo-msgdb-match-condition): New function.
+       (elmo-msgdb-match-condition-primitive): Ditto.
+
+       * elmo-util.el (elmo-filter-condition-p): New macro.
+
+       * elmo-cache.el (elmo-folder-search): Removed.
+
+       * elmo-localdir.el (elmo-folder-search): Ditto.
+
+       * elmo-maildir.el (elmo-folder-search): Ditto.
+
+       * elmo-mark.el (elmo-folder-search): Ditto.
+
+       * elmo-nmz.el (elmo-folder-search): Ditto.
+
+       * elmo-sendlog.el (elmo-folder-search): Ditto.
+
+       * elmo-shimbun.el (elmo-folder-search): Ditto.
+
+       * elmo-imap4.el (elmo-folder-search): Call method of parent class
+       if folder is unplugged.
+
+       * elmo-nntp.el (elmo-folder-search): Likewise.
+       (elmo-nntp-search-internal): New function.
+
+       * elmo-version.el (elmo-version): Up to 2.9.3.
+
+2001-12-27  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-message-fetch-with-cache-process): Fixed typo.
+
+2001-12-27  Tetsurou Okazaki  <okazaki@be.to>
+
+       * elmo-vars.el (elmo-nntp-default-user): Customization Type fix.
+
+2001-12-27  Taiji Can  <Taiji.Can@grd.advantest.co.jp>
+
+       * elmo-nntp.el (elmo-network-initialize-session): Fixed for NNTP response.
+
+2001-12-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-nmz.el (elmo-nmz-use-drive-letter): New variable.
+       (elmo-map-folder-list-message-locations): Do drive letter conversion
+       on Windows environment.
+       (elmo-nmz-msgdb-create-entity): Use expand-file-name.
+       (elmo-map-message-fetch): Ditto.
+
+2001-12-27  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-nntp.el (elmo-nntp-read-response): Fixed for Response '400'
+       (elmo-network-initialize-session): Ditto.
+
+2001-12-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-imap4-message-fetch): Fixed '100%' message.
+
+       * elmo-pop3.el (elmo-message-fetch-plugged): Ditto.
+
+       * elmo-util.el (elmo-progress-clear): Ditto.
+
+       * elmo-date.el (elmo-date-get-datevec): Fix timezone of
+       `DD-Mon-YYYY' type date.
+
+2001-12-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-util.el (elmo-buffer-field-primitive-condition-match): Use
+       `elmo-date-make-sortable-string' instead of
+       `timezone-make-date-sortable'.
+
+       * elmo-date.el (elmo-date-make-sortable-string): Use
+       `timezone-make-time-string'.
+
+2001-12-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo.el (elmo-folder-synchronize): Delete important messages too.
+
+       * elmo-util.el (elmo-buffer-field-primitive-condition-match): Fixed
+       `since'; Fix timezone.
+
+       * elmo-msgdb.el (elmo-msgdb-search-internal-primitive): Ditto.
+
+       * elmo-nntp.el (elmo-nntp-search-primitive): Likewise.
+
+2001-12-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-message-fetch-with-cache-process): Rewrite.
+
+2001-12-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-generic-folder-append-messages): Make
+       fetch-strategy with `use-cache' as 'maybe. Check return value of
+       `elmo-message-fetch'.
+       (elmo-message-fetch): Return return value of
+       `elmo-message-fetch-with-cache-process'.
+       (elmo-message-fetch-with-cache-process): Return non-nil if
+       fetching was succeed. Load cache when fetching was failed and
+       fetch-strategy-use-cache is 'maybe.
+
+       * elmo-util.el (elmo-file-cache-load): New function.
+
+       * elmo-multi.el (elmo-message-use-cache-p): Remove duplicated
+       defun.
+
+       * elmo-archive.el (elmo-archive-message-fetch-internal): Return
+       non-nil if fetching was succeed.
+
+       * elmo-imap4.el (elmo-imap4-message-fetch): Likewise.
+
+       * elmo-nmz.el (elmo-map-message-fetch): Likewise.
+
+       * elmo-nntp.el (elmo-nntp-read-body): Likewise.
+       (elmo-message-fetch-with-cache-process): Likwise.
+
+       * elmo-pop3.el (elmo-pop3-read-body): Likewise.
+
+       * elmo-shimbun.el (elmo-map-message-fetch): Likewise.
+
+       * elmo-version.el (elmo-version): Up to 2.9.2.
+
+2001-12-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo.el (elmo-folder-delete): Delete msgdb path.
+
+       * elmo-archive.el (elmo-folder-delete): Added `:before' qualifier.
+
+       * elmo-maildir.el (elmo-folder-delete): Ditto.
+
+       * elmo-localdir.el (elmo-folder-delete): Ditto.
+
+       * elmo-imap4.el (elmo-folder-delete): Ditto.
+
+2001-12-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo.el (luna-define-class): Added `biff' slot.
+
+       * elmo-pop3.el (elmo-pop3-debug): Split biff log.
+       (elmo-pop3-debug-inhibit-logging): Abolished.
+       (elmo-network-close-session): Eliminated needless let.
+       (elmo-pop3-get-session): Set prefix 'BIFF' if biff folder.
+       (elmo-pop3-send-command): Added `no-log' argument.
+       (elmo-pop3-process-filter): Use `with-current-buffer'.
+       (elmo-pop3-auth-user): Set `no-log' argument; Delete process
+       if login failure.
+       (elmo-pop3-auth-apop): Likewise.
+       (elmo-network-authenticate-session): Likewise.
+
+       * elmo-nntp.el (elmo-nntp-get-session): Set prefix 'BIFF'
+       if biff folder.
+
+       * elmo-net.el (elmo-network-session-password-key): Use class symbol
+       string to determine protocol.
+       (elmo-network-session-name-prefix): Abolished.
+       (elmo-network-session-cache-key): Follow the change above.
+       (elmo-network-open-session): Ditto.
+
+       * elmo-imap4.el (elmo-imap4-send-command): Modified error message.
+       (elmo-imap4-get-session): Set prefix 'BIFF' if biff folder.
+
+       * elmo-version.el (elmo-version): Up to 2.9.1.
+
+       * elmo-util.el (elmo-file-field-primitive-condition-match): Fixed
+       unmatch condition checking.
+
+       * elmo-localdir.el (elmo-folder-search): Don't short cut if unmatch
+       condition.
+
+2001-12-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo.el (elmo-folder-confirm-appends): Fixed docstring.
+
 2001-12-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-imap4.el (elmo-imap4-search-internal-primitive): Fixed