(write-region (point-min) (point-max) cache-file nil 'no-msg)))))))
(defun elmo-prefetch-msg (folder msg outbuf msgdb)
"Read message into outbuf with cacheing."
(save-excursion
(write-region (point-min) (point-max) cache-file nil 'no-msg)))))))
(defun elmo-prefetch-msg (folder msg outbuf msgdb)
"Read message into outbuf with cacheing."
(save-excursion
(or msgdb (elmo-msgdb-load folder))))
(dir (elmo-msgdb-expand-path folder))
(message-id (cdr (assq msg number-alist)))
type
(or msgdb (elmo-msgdb-load folder))))
(dir (elmo-msgdb-expand-path folder))
(message-id (cdr (assq msg number-alist)))
type
(defun elmo-read-msg (folder msg outbuf msgdb &optional force-reload)
"Read message into outbuf."
(let ((inhibit-read-only t))
(defun elmo-read-msg (folder msg outbuf msgdb &optional force-reload)
"Read message into outbuf."
(let ((inhibit-read-only t))
(elmo-read-msg-no-cache folder msg outbuf)
(elmo-read-msg-with-cache folder msg outbuf msgdb force-reload))))
(elmo-read-msg-no-cache folder msg outbuf)
(elmo-read-msg-with-cache folder msg outbuf msgdb force-reload))))
(or msgdb (elmo-msgdb-load folder))))
(dir (elmo-msgdb-expand-path folder))
(message-id (cdr (assq msg number-alist)))
(type (elmo-folder-number-get-type folder msg))
(or msgdb (elmo-msgdb-load folder))))
(dir (elmo-msgdb-expand-path folder))
(message-id (cdr (assq msg number-alist)))
(type (elmo-folder-number-get-type folder msg))
ret-val part-num real-fld-num)
(set-buffer outbuf)
(if (and (not force-reload)
(not (elmo-local-file-p folder msg)))
(setq ret-val (elmo-cache-read message-id folder msg)))
ret-val part-num real-fld-num)
(set-buffer outbuf)
(if (and (not force-reload)
(not (elmo-local-file-p folder msg)))
(setq ret-val (elmo-cache-read message-id folder msg)))
(cdr real-fld-num) outbuf))
(if (not (elmo-local-file-p folder msg))
(elmo-cache-save message-id
(cdr real-fld-num) outbuf))
(if (not (elmo-local-file-p folder msg))
(elmo-cache-save message-id
(unless (elmo-append-msg dst-folder (buffer-string) message-id
(if same-number (car messages))
;; null means all unread.
(unless (elmo-append-msg dst-folder (buffer-string) message-id
(if same-number (car messages))
;; null means all unread.
(message "Cleaning up src folder..."))
(if (and (elmo-delete-msgs src-folder ret-val db)
(elmo-msgdb-delete-msgs src-folder ret-val db t))
(message "Cleaning up src folder..."))
(if (and (elmo-delete-msgs src-folder ret-val db)
(elmo-msgdb-delete-msgs src-folder ret-val db t))
(elmo-call-func folder "search" condition from-msgs)
(elmo-cache-search-all folder condition from-msgs))))
(elmo-call-func folder "search" condition from-msgs)
(elmo-cache-search-all folder condition from-msgs))))
seen-mark important-mark seen-list)
(elmo-dop-msgdb-create folder numlist new-mark already-mark
seen-mark important-mark seen-list)))
seen-mark important-mark seen-list)
(elmo-dop-msgdb-create folder numlist new-mark already-mark
seen-mark important-mark seen-list)))
(elmo-call-func (car (car folder-numbers)) func-name
(cdr (car folder-numbers)))
(if elmo-enable-disconnected-operation
(elmo-call-func (car (car folder-numbers)) func-name
(cdr (car folder-numbers)))
(if elmo-enable-disconnected-operation
(defun elmo-mark-as-unread (folder msgs msgdb)
(elmo-call-func-on-markable-msgs folder "mark-as-unread" msgs msgdb))
(defun elmo-mark-as-unread (folder msgs msgdb)
(elmo-call-func-on-markable-msgs folder "mark-as-unread" msgs msgdb))
(defun elmo-msgdb-load (folder &optional spec)
(message "Loading msgdb for %s..." folder)
(let* ((path (elmo-msgdb-expand-path folder spec))
(defun elmo-msgdb-load (folder &optional spec)
(message "Loading msgdb for %s..." folder)
(let* ((path (elmo-msgdb-expand-path folder spec))
(list (elmo-msgdb-overview-load path)
(elmo-msgdb-number-load path)
(elmo-msgdb-mark-load path)
(list (elmo-msgdb-overview-load path)
(elmo-msgdb-number-load path)
(elmo-msgdb-mark-load path)
(elmo-msgdb-number-load dir)))
(in-db (sort (mapcar 'car nalist) '<))
(in-folder (elmo-list-folder fld))
(elmo-msgdb-number-load dir)))
(in-db (sort (mapcar 'car nalist) '<))
(in-folder (elmo-list-folder fld))
(nth 2 (elmo-folder-get-spec fld)))))))
((and (eq type 'imap4)
elmo-use-server-diff)
(elmo-call-func fld "server-diff")) ;; imap4 server side diff.
(nth 2 (elmo-folder-get-spec fld)))))))
((and (eq type 'imap4)
elmo-use-server-diff)
(elmo-call-func fld "server-diff")) ;; imap4 server side diff.
((eq (car cur-spec) 'filter)
(setq cur-spec (elmo-folder-get-spec (nth 2 cur-spec))))
((eq (car cur-spec) 'pipe)
((eq (car cur-spec) 'filter)
(setq cur-spec (elmo-folder-get-spec (nth 2 cur-spec))))
((eq (car cur-spec) 'pipe)