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.
+2000-04-07 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * README.ja (CVS): New section.
+ * README (CVS): Ditto.
+
2000-03-30 Yuuichi Teranishi <teranisi@gohome.org>
* wl/ChangeLog: New file.
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.
Wanderlust -- Yet Another Message Interface on Emacsen
by Yuuichi Teranishi <teranisi@gohome.org>
- 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.
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,
Wanderlust -- Yet Another Message Interaface on Emacsen
by Yuuichi Teranishi <teranisi@gohome.org>
- Time-stamp: <99/12/06 18:55:57 teranisi>
+ Time-stamp: <2000-04-07 09:51:18 teranisi>
Wanderlust \e$B$O\e(B Emacs \e$B>e$GF0$/\e(B IMAP4rev1 \e$BBP1~$N%a!<%k\e(B/\e$B%K%e!<%94IM}%7%9%F%`$G$9!#\e(B
\e$B$H=q$$$?%a!<%k$rAw$k$HF~2q$N%,%$%I$,<+F0E*$K$b$i$($^$9!#\e(B
+CVS:
+
+ Wanderlust \e$B$N3+H/$O\e(B CVS \e$B$r;H$C$F$$$^$9!#:G?7$N3+H/%P!<%8%g%s$r\e(B CVS \e$B$G\e(B
+ \e$B<hF@$G$-$^$9!#\e(B
+
+(0) cvs login (\e$B0l2sL\$@$1\e(B)
+
+ % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login
+
+ CVS password: [CR] # \e$B6uJ8;zNs\e(B
+
+(1) checkout
+
+ % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout wanderlust
+
+ CVS \e$B$K4p$E$$$?3+H/$K;22C$7$?$$$H$-$O!"\e(B
+
+ cvs@cvs.m17n.org
+
+ \e$B$K%"%+%&%s%HL>$H!"\e(BUNIX \e$B$N\e(B /etc/passwd \e$BMM<0$G0E9f2=$5$l$?%Q%9%o!<%I$r\e(B
+ \e$BAw$C$F$/$@$5$$!#3+$+$l$?3+H/$K;22C$7$F$/$@$5$k$3$H$r4|BT$7$^$9!#\e(B
+
References:
[1] M. Crispin, "INTERNET MESSAGE ACCESS PROTOCOL - VERSION 4rev1", RFC 2060,
+2000-04-07 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * 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 <teranisi@gohome.org>
* elmo-pop3.el (elmo-pop3-open-connection): Enclose with
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; 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).
(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)
(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)))
+2000-04-07 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * 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 <teranisi@gohome.org>
* wl-refile.el (wl-refile-expand-newtext): Add `original' argument.
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; 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).
(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)
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; 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).
(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)
projects / elisp / wanderlust.git / commitdiff