From ac08345f9bda5acc415b20b8905f7178a462ea7e Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 7 Apr 2000 01:00:37 +0000 Subject: [PATCH] * elmo/elmo-dop.el (elmo-dop-queue-flush): Add optional argument `force'. If `force' is non-nil, try flushing all operation queues. * wl/wl.el (wl-plugged-init): Flush queues if started with plugged status. * wl/wl-folder.el (wl-folder-flush-queue): Flush operation queue too. * README (CVS): New section. * README.ja (CVS): Ditto. --- ChangeLog | 5 +++++ NEWS | 5 ++++- README | 24 +++++++++++++++++++++++- README.ja | 24 +++++++++++++++++++++++- elmo/ChangeLog | 5 +++++ elmo/elmo-dop.el | 12 ++++++++---- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 8 ++++---- wl/wl.el | 4 +++- 9 files changed, 81 insertions(+), 12 deletions(-) diff --git a/ChangeLog b/ChangeLog index e4cc6a4..cdeb35c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-04-07 Yuuichi Teranishi + + * README.ja (CVS): New section. + * README (CVS): Ditto. + 2000-03-30 Yuuichi Teranishi * wl/ChangeLog: New file. diff --git a/NEWS b/NEWS index 9846dd2..389b02f 100644 --- a/NEWS +++ b/NEWS @@ -1,6 +1,9 @@ Wanderlust NEWS -- User-visible changes in Wanderlust. 21 Mar 2000 -* Changes in version 1.1.1. +* Changes in version 1.1.1 (Bug fix version of 1.1.0) + +** Flush operation and sending queues if Wanderlust is started + in plugged status. ** Directory structure is changed. diff --git a/README b/README index e01331f..44137a2 100644 --- a/README +++ b/README @@ -1,7 +1,7 @@ Wanderlust -- Yet Another Message Interface on Emacsen by Yuuichi Teranishi - Time-stamp: <2000-02-24 00:26:49 teranisi> + Time-stamp: <2000-04-07 09:50:00 teranisi> Wanderlust is a mail/news management system with IMAP4rev1 support for Emacs. @@ -53,6 +53,28 @@ release in Japanese. To subscribe, send mail to wl-ctl@lists.airs.net, with '# guide' as the message body. +CVS: + + Development of Wanderlust uses CVS. So latest developing version is + available at CVS. + +(0) cvs login (first time only) + + % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login + + CVS password: [CR] # NULL string + +(1) checkout + + % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout wanderlust + + If you would like to join CVS based development, please send mail to + + cvs@cvs.m17n.org + + with your account name and UNIX /etc/passwd style crypted password. + We hope you will join the open development. + References: [1] M. Crispin, "INTERNET MESSAGE ACCESS PROTOCOL - VERSION 4rev1", RFC 2060, diff --git a/README.ja b/README.ja index 123033f..61cb855 100644 --- a/README.ja +++ b/README.ja @@ -1,7 +1,7 @@ Wanderlust -- Yet Another Message Interaface on Emacsen by Yuuichi Teranishi - Time-stamp: <99/12/06 18:55:57 teranisi> + Time-stamp: <2000-04-07 09:51:18 teranisi> Wanderlust は Emacs 上で動く IMAP4rev1 対応のメール/ニュース管理システムです。 @@ -56,6 +56,28 @@ Web Page: と書いたメールを送ると入会のガイドが自動的にもらえます。 +CVS: + + Wanderlust の開発は CVS を使っています。最新の開発バージョンを CVS で + 取得できます。 + +(0) cvs login (一回目だけ) + + % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login + + CVS password: [CR] # 空文字列 + +(1) checkout + + % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout wanderlust + + CVS に基づいた開発に参加したいときは、 + + cvs@cvs.m17n.org + + にアカウント名と、UNIX の /etc/passwd 様式で暗号化されたパスワードを + 送ってください。開かれた開発に参加してくださることを期待します。 + References: [1] M. Crispin, "INTERNET MESSAGE ACCESS PROTOCOL - VERSION 4rev1", RFC 2060, diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 11ba6ae..b85ee9b 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2000-04-07 Yuuichi Teranishi + + * elmo-dop.el (elmo-dop-queue-flush): Add optional argument `force'. + If `force' is non-nil, try flushing all operation queues. + 2000-04-03 Yuuichi Teranishi * elmo-pop3.el (elmo-pop3-open-connection): Enclose with diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el index 3643a42..09c8aaf 100644 --- a/elmo/elmo-dop.el +++ b/elmo/elmo-dop.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <00/03/14 19:39:23 teranisi> +;; Time-stamp: <2000-04-07 09:41:13 teranisi> ;; This file is part of ELMO (Elisp Library for Message Orchestration). @@ -51,14 +51,17 @@ Automatically loaded/saved.") (list operation))) (elmo-dop-queue-save)))) -(defun elmo-dop-queue-flush () +(defun elmo-dop-queue-flush (&optional force) + "Flush Disconnected operations. +If optional argument FORCE is non-nil, try flushing all operation queues +even an operation concerns the unplugged folder." (elmo-dop-queue-load) ; load cache. (elmo-dop-queue-merge) (let ((queue elmo-dop-queue) (count 0) len) (while queue - (if (elmo-folder-plugged-p (caar queue)) + (if (or force (elmo-folder-plugged-p (caar queue))) (setq count (1+ count))) (setq queue (cdr queue))) (when (> count 0) @@ -79,7 +82,8 @@ Automatically loaded/saved.") (setq i (+ 1 i)) (message "Flushing queue....%d/%d." i num) (condition-case err - (if (not (elmo-folder-plugged-p (nth 0 (car queue)))) + (if (and (not force) + (not (elmo-folder-plugged-p (nth 0 (car queue))))) (setq failure t) (setq folder (nth 0 (car queue)) func (nth 1 (car queue))) diff --git a/wl/ChangeLog b/wl/ChangeLog index aee7fef..9910e3d 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2000-04-07 Yuuichi Teranishi + + * wl.el (wl-plugged-init): Flush queues if started with plugged status. + + * wl-folder.el (wl-folder-flush-queue): Flush operation queue too. + 2000-04-05 Yuuichi Teranishi * wl-refile.el (wl-refile-expand-newtext): Add `original' argument. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 083e8e3..2c8c82d 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <00/03/25 16:30:59 teranisi> +;; Time-stamp: <2000-04-07 09:30:54 teranisi> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -456,16 +456,16 @@ (wl-auto-select-first nil) (wl-plugged t) emptied) + (if elmo-enable-disconnected-operation + (elmo-dop-queue-flush 'force)) ; Try flushing all queue. (if (not (elmo-list-folder wl-queue-folder)) - (error "No queue exists") + (message "No sending queue exists.") (if wl-stay-folder-window (wl-folder-select-buffer (wl-summary-get-buffer-create wl-queue-folder))) (wl-summary-goto-folder-subr wl-queue-folder 'force-update nil) (unwind-protect (wl-draft-queue-flush) - (if wl-summary-cache-use (wl-summary-save-view-cache)) - (wl-summary-msgdb-save) (if (get-buffer-window cur-buf) (select-window (get-buffer-window cur-buf))) (set-buffer cur-buf) diff --git a/wl/wl.el b/wl/wl.el index 3efc943..0a563f4 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <00/03/22 15:44:44 teranisi> +;; Time-stamp: <2000-04-07 09:15:33 teranisi> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -83,6 +83,8 @@ (if wl-plugged wl-plug-state-indicator-on wl-plug-state-indicator-off)) + (if wl-plugged + (wl-toggle-plugged t 'flush)) (force-mode-line-update t)) (defun wl-toggle-plugged (&optional arg queue-flush-only) -- 1.7.10.4