@c %**end of header
@documentlanguage ja
@documentencoding iso-2022-jp
-@set VERSION 2.5.0
+@set VERSION 2.5.1
@synindex pg cp
@finalout
\e$B$&$K;XDj$G$-$^$9!#\e(B
\e$B%U%)%k%@L>$N:G8e$K\e(B @samp{!} \e$B$,IU$$$F$$$k$H!"\e(BSSL (Secure Socket Layer)\e$B$r\e(B
-\e$BMxMQ$7$F%3%M%/%7%g%s$rD%$j$^$9!#\e(B@samp{!!} \e$B$@$H!"\e(BSTARTTLS\e$B$K$h$j\e(B
-SSL\e$B%3%M%/%7%g%s$rD%$j$^$9!#\e(B
-\e$BJQ?t\e(B @code{elmo-default-imap4-ssl} \e$B$NCM$,\e(B non-nil \e$B$J$i!"\e(B@samp{!} \e$B$rIU$1\e(B
-\e$B$J$/$F$b\e(B SSL \e$B$r;H$$$^$9!#\e(B'starttls \e$B$J$i\e(B @samp{!!} \e$B$r0UL#$7$^$9!#\e(B
+\e$BMxMQ$7$F%3%M%/%7%g%s$rD%$j$^$9!#\e(B@samp{!!} \e$B$@$H!"\e(BSTARTTLS \e$B$K$h$j\e(BSSL\e$B%3%M%/\e(B
+\e$B%7%g%s$rD%$j$^$9!#JQ?t\e(B @code{elmo-default-imap4-stream-type} \e$B$NCM$,\e(B
+non-nil \e$B$J$i!"\e(B@samp{!} \e$B$rIU$1$J$/$F$b\e(B SSL \e$B$r;H$$$^$9!#\e(B'starttls \e$B$J$i\e(B
+@samp{!!} \e$B$r0UL#$7$^$9!#\e(B
(SSL \e$B$rMxMQ$9$k$K$O\e(B \e$BK\%Q%C%1!<%8$N\e(B @file{utils/ssl.el} \e$B$r%$%s%9%H!<%k$9\e(B
\e$B$kI,MW$,$"$j$^$9!#$J$*$+$D!"\e(BOpenSSL\e$B$K4^$^$l$k\e(B @command{openssl} \e$B$K%Q%9$,\e(B
@var{\e$B%f!<%6L>\e(B}\e$B$,\e(B non-nil \e$B$N>l9g$O\e(BAUTHINFO\e$B$K$h$kG'>Z$r9T$J$$$^$9!#\e(B
\e$B%U%)%k%@L>$N:G8e$K\e(B @samp{!} \e$B$,IU$$$F$$$k$H!"\e(BSSL \e$B$rMxMQ$7$F%3%M%/%7%g%s$rD%$j$^$9!#\e(B
@samp{!!} \e$B$@$H!"\e(BSTARTTLS \e$B$K$h$j\e(B SSL \e$B%3%M%/%7%g%s$rD%$j$^$9!#\e(B
-\e$BJQ?t\e(B @code{elmo-default-nntp-ssl} \e$B$NCM$,\e(B non-nil \e$B$J$i!"\e(B@samp{!} \e$B$rIU$1\e(B
+\e$BJQ?t\e(B @code{elmo-default-nntp-stream-type} \e$B$NCM$,\e(B non-nil \e$B$J$i!"\e(B@samp{!} \e$B$rIU$1\e(B
\e$B$J$/$F$b\e(B SSL \e$B$r;H$$$^$9!#\e(B@code{starttls} \e$B$J$i\e(B @samp{!!} \e$B$r0UL#$7$^$9!#\e(B
(SSL \e$B$rMxMQ$9$k$K$O\e(B \e$BK\%Q%C%1!<%8$N\e(B @file{utils/ssl.el} \e$B$r%$%s%9%H!<%k$9\e(B
archive \e$B$+$iF~<j2DG=$G$9\e(B(GPL2)\e$B!#\e(B
\e$B%U%)%k%@L>$N:G8e$K\e(B @samp{!} \e$B$,IU$$$F$$$k$H!"\e(BSSL \e$B$rMxMQ$7$F%3%M%/%7%g%s$rD%$j$^$9!#\e(B
-\e$BJQ?t\e(B @code{elmo-default-pop-ssl} \e$B$NCM$,\e(B non-nil \e$B$J$i!"\e(B@samp{!} \e$B$rIU$1\e(B
+\e$BJQ?t\e(B @code{elmo-default-pop3-stream-type} \e$B$NCM$,\e(B non-nil \e$B$J$i!"\e(B@samp{!} \e$B$rIU$1\e(B
\e$B$J$/$F$b\e(B SSL \e$B$r;H$$$^$9!#\e(B@code{starttls} \e$B$J$i\e(B @samp{!!} \e$B$r0UL#$7$^$9!#\e(B
(SSL \e$B$rMxMQ$9$k$K$O\e(B \e$BK\%Q%C%1!<%8$N\e(B @file{utils/ssl.el} \e$B$r%$%s%9%H!<%k$9$k\e(B
\e$BI,MW$,$"$j$^$9!#$J$*$+$D!"\e(BOpenSSL\e$B$K4^$^$l$k\e(B @file{openssl} \e$B$K%Q%9$,DL$C$F$$$k\e(B
\e$B%^%k%A%Q!<%H$NA`:n$O%a%C%;!<%8%P%C%U%!$K0\F0$7$F$+$i9T$$$^$9!#\e(B
@xref{Message}.
+@subsection \e$B%a%C%;!<%8HV9f$r5M$a$k\e(B
+\e$B%5%^%j$G\e(B @kbd{M-x wl-summary-pack-number} \e$B$H$9$k$3$H$G\e(B
+\e$B%a%C%;!<%8HV9f$r5M$a$k$3$H$,$G$-$^$9!#$?$@$7BP1~$7$F$$$k%U%)%k%@$N<oN`$O\e(B
+MH Folder, News Spool Folder, Maildir Folder \e$B$N$_$G$9!#\e(B
+
@node Thread Operations, Cache, Usage of Summary mode, Summary
@section \e$B%9%l%C%I$NA`:n\e(B
@code{wl-summary-jump-to-msg-by-message-id-via-nntp} \e$B$r8F$S!"\e(B
@code{elmo-default-nntp-server} \e$B$G;XDj$5$l$?%5!<%P$+$i8!:w$7$^$9!#$3$N$H\e(B
\e$B$-\e(B @code{elmo-default-nntp-user}, @code{elmo-default-nntp-port},
-@code{elmo-default-nntp-ssl} \e$B$G;XDj$7$?>r7o$G%5!<%P$H@\B3$7$^$9!#\e(B
+@code{elmo-default-nntp-stream-type} \e$B$G;XDj$7$?>r7o$G%5!<%P$H@\B3$7$^$9!#\e(B
@code{confirm} \e$B$J$i\e(B @code{elmo-default-nntp-*} \e$B$G;XDj$5$l$?%5!<%P$+$i8!\e(B
\e$B:w$9$k$+!"%5!<%P$r;XDj$9$k$+$r3NG'$7$^$9!#$3$N>l9g!"%5!<%P$N%[%9%HL>!"$b\e(B
@subsection POP-before-SMTP\e$B$K$h$k%a!<%k$NAw?.\e(B
@cindex POP-before-SMTP
+@cindex SMTP-after-POP
POP-before-SMTP\e$B$K$h$k%a!<%k$NAw?.$,$G$-$^$9!#\e(B
\e$B@_Dj$O!"\e(B
POP-before-SMTP \e$B$GG'>Z$r9T$J$&$H$-$N\e(BPOP\e$B%]!<%HHV9f$G$9!#\e(B
\e$B@_Dj$5$l$F$$$J$$>l9g$O\e(B @code{elmo-default-pop3-port} \e$B$,;H$o$l$^$9!#\e(B
-@item wl-pop-before-smtp-ssl
+@item wl-pop-before-smtp-stream-type
Non-nil \e$B$J$i\e(B SSL \e$B$rMxMQ$7$F\e(B POP\e$B%3%M%/%7%g%s$rD%$j$^$9!#\e(B@code{starttls}
\e$B$J$i\e(BSTARTTLS (RFC2595)\e$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#@_Dj$5$l$F$$$J\e(B
-\e$B$$>l9g$O\e(B @code{elmo-default-pop3-ssl} \e$B$,;H$o$l$^$9!#\e(B
+\e$B$$>l9g$O\e(B @code{elmo-default-pop3-stream-type} \e$B$,;H$o$l$^$9!#\e(B
@end table
POP-before-SMTP\e$BMQ$NJQ?t\e(B (@code{wl-pop-before-smtp-*})\e$B$,@_Dj$5$l$F$$$J$$\e(B
\e$B%K%e!<%9Ej9F;~$N\e(B NNTP \e$B%5!<%P$N%]!<%HHV9f!#\e(B
@code{nil} \e$B$J$i\e(B @code{elmo-default-nntp-server} \e$B$r;H$$$^$9!#\e(B
-@item wl-nntp-posting-ssl
-@vindex wl-nntp-posting-ssl
+@item wl-nntp-posting-stream-type
+@vindex wl-nntp-posting-stream-type
\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B
-@code{nil} \e$B$J$i\e(B @code{elmo-default-nntp-ssl} \e$B$rI>2A$7$^$9!#\e(B
+@code{nil} \e$B$J$i\e(B @code{elmo-default-nntp-stream-type} \e$B$rI>2A$7$^$9!#\e(B
Non-nil \e$B$J$i%K%e!<%9Ej9F;~$K\e(B SSL \e$B$rMxMQ$7$^$9!#\e(B
@code{starttls}\e$B$J$i\e(BSTARTTLS (RFC2595)\e$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#\e(B
POP-before-SMTP\e$B$G\e(BPOP\e$B$r9T$J$&$H$-$N%]!<%HHV9f$G$9!#\e(B
@code{nil} \e$B$N$^$^$J$i\e(B @code{elmo-default-pop3-port}\e$B$rMxMQ$7$^$9!#\e(B
-@item wl-pop-before-smtp-ssl
-@vindex wl-pop-before-smtp-ssl
+@item wl-pop-before-smtp-stream-type
+@vindex wl-pop-before-smtp-stream-type
\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(B
POP-before-SMTP \e$B$G\e(B SSL\e$B$rMxMQ$9$k$+$I$&$+$r<($9%U%i%0$G$9!#\e(B@code{nil} \e$B$N\e(B
-\e$B$^$^$J$i\e(B @code{elmo-default-pop3-ssl}\e$B$rMxMQ$7$^$9!#\e(B@code{starttls\e$B$J$i\e(B
-STARTTLS} (RFC2595)\e$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#\e(B
+\e$B$^$^$J$i\e(B @code{elmo-default-pop3-stream-type}\e$B$rMxMQ$7$^$9!#\e(B
+@code{starttls}\e$B$J$i\e(BSTARTTLS (RFC2595)\e$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#\e(B
@item wl-draft-queue-save-variables
@vindex wl-draft-queue-save-variables
@vindex wl-ldap-base
\e$B=i4|@_Dj$O\e(B @samp{c=US}\e$B!#\e(B
\e$B%"%I%l%9Jd40;~$N\e(B LDAP \e$B8!:w$N3+;OE@\e(B(base)\e$B$r;XDj$7$^$9!#\e(B
+
+@item wl-draft-remove-group-list-contents
+@vindex wl-draft-remove-group-list-contents
+\e$B=i4|@_Dj$O\e(B @code{t}\e$B!#\e(B
+Non-nil\e$B$J$i%a!<%kAw?.$N:]$K08@h$+$i\e(B group-list \e$B$NFbMF$r:o=|$7$^$9\e(B
+(group-list \e$B$H$O08@h$K4^$^$l$k\e(B @samp{Group: foo@@gohome.org,
+bar@@gohome.org;}\e$B$N$h$&$J5-=R$r;X$7$^$9\e(B)\e$B!#\e(B
@end table
\e$BF1MM$K$7$F!"\e(Bprefix argument \e$BIU$-$G\e(B @kbd{a} \e$B$r2!$7$?$H$-$NF0:n$,!"\e(B
@code{wl-draft-reply-with-argument-list} \e$B$G@_Dj$G$-$^$9!#\e(B
+\e$BCm!'\e(B \e$B<+J,$,=P$7$?%a!<%k$KJV?.$9$k:]$NF0:n$O!"$=$l$i$KBe$o$C$F\e(B
+@code{wl-draft-reply-myself-without-argument-list},
+@code{wl-draft-reply-myself-with-argument-list}
+\e$B$G;XDj$7$^$9!#\e(B
+
@node Thread Format, User-Agent Field, Draft for Reply, Advanced Settings
@subsection \e$B%9%l%C%I$N8+$?$a\e(B
@c %**end of header
@documentlanguage en
@documentencoding us-ascii
-@set VERSION 2.5.0
+@set VERSION 2.5.1
@synindex pg cp
@finalout
For example, you can specify a folder as @samp{foo%imap@@gateway} even
if you have to go through a firewall.
-SSL (Secure Socket Layer) connection will be used if a folder name
-ends with @samp{!}. Or, if the value of @code{elmo-default-imap4-ssl} is non-nil,
-SSL will be the default connection.
-If a folder name ends with @samp{!!}, STARTTLS connection will be established.
-If the value of @code{elmo-default-imap4-ssl} is 'starttls,
-STARTTLS will be the default connection.
+SSL (Secure Socket Layer) connection will be used if a folder name ends
+with @samp{!}. Or, if the value of @code{elmo-default-imap4-stream-type}
+is non-nil, SSL will be the default connection. If a folder name ends
+with @samp{!!}, STARTTLS connection will be established. If the value
+of @code{elmo-default-imap4-stream-type} is @code{starttls}, STARTTLS
+will be the default connection.
If you specify @code{login}, @code{cram-md5} or @code{digest-md5} as
authentication method, the password is sent in encoded form. But, if
@end example
AUTHINFO is used as authentication method if the @var{username} is non-nil.
-SSL will be default method if @code{elmo-default-nntp-ssl} is non-nil even
+SSL will be default method if @code{elmo-default-nntp-stream-type} is non-nil even
if the folder name doesn't end with @samp{!}.
If a folder name ends with @samp{!!}, STARTTLS connection will be established.
-if the value of @code{elmo-default-nntp-ssl} is @code{starttls},
+if the value of @code{elmo-default-nntp-stream-type} is @code{starttls},
STARTTLS will be the default connection.
Example:
If the last character of the folder name is @samp{!}, Wanderlust
connects to the POP server via SSL (Secure Socket Layer). If you set
-non-nil value to @code{elmo-default-pop-ssl}, you don't have to put
+non-nil value to @code{elmo-default-pop3-stream-type}, you don't have to put
@samp{!} in the end of the folder name to use SSL. If a folder name ends
with @samp{!!}, STARTTLS connection will be established. if the value
-of @code{elmo-default-pop-ssl} is @code{starttls}, STARTTLS will be the
+of @code{elmo-default-pop3-stream-type} is @code{starttls}, STARTTLS will be the
default connection.
@node Multi Folder, Filter Folder, POP Folder, Folders
To operate multipart, you have to enter to the message buffer.
@xref{Message}.
+@subsection Pack the Message Numbers
+You can pack the message numbers in Summary by
+@kbd{M-x wl-summary-pack-number}. Note that only MH Folder,
+News Spool Folder and Maildir Folder are supported folder types.
+
@node Thread Operations, Cache, Usage of Summary Mode, Summary
@section Thread Operations
@code{wl-summary-jump-to-msg-by-message-id-via-nntp} and search message
from the NNTP server @code{elmo-default-nntp-server}. The value of
@code{elmo-default-nntp-user}, @code{elmo-default-nntp-port},
-@code{elmo-default-nntp-ssl} are used.
+@code{elmo-default-nntp-stream-type} are used.
If @code{confirm}, server name can be specified. You can specify NNTP
folder format like @samp{-:username@@servername:119!}.
The POP port number for POP-before-SMTP authentication.
If unset, @code{elmo-default-pop3-port} is used.
-@item wl-pop-before-smtp-ssl
+@item wl-pop-before-smtp-stream-type
If non-nil, POP connection is established using SSL. If
@code{starttls}, STARTTLS (RFC2595) connection will be established. If
-unset, @code{elmo-default-pop3-ssl} is used.
+unset, @code{elmo-default-pop3-stream-type} is used.
@end table
If variables for POP-before-SMTP (@code{wl-pop-before-smtp-*}) are
This is the port number of the NNTP server used for news submission.
If @code{nil}, @code{elmo-default-nntp-server} is used.
-@item wl-nntp-posting-ssl
-@vindex wl-nntp-posting-ssl
+@item wl-nntp-posting-stream-type
+@vindex wl-nntp-posting-stream-type
The initial setting is @code{nil}.
-If @code{nil}, @code{elmo-default-nntp-ssl} is evaluated. If non-nil,
+If @code{nil}, @code{elmo-default-nntp-stream-type} is evaluated. If non-nil,
SSL is used for news submission. If @code{starttls}, STARTTLS (RFC2595)
connection will be established.
This is the POP port number for POP-before-SMTP. If it is @code{nil},
@code{elmo-default-pop3-port} is used.
-@item wl-pop-before-smtp-ssl
-@vindex wl-pop-before-smtp-ssl
+@item wl-pop-before-smtp-stream-type
+@vindex wl-pop-before-smtp-stream-type
The initial setting is @code{nil}.
This flag controls the use of SSL for POP-before-SMTP. If it is
-@code{nil}, @code{elmo-default-pop3-ssl} is used. If @code{starttls},
+@code{nil}, @code{elmo-default-pop3-stream-type} is used. If @code{starttls},
STARTTLS (RFC2595) connection will be established.
@item wl-draft-queue-save-variables
@vindex wl-ldap-base
The initial setting is @samp{c=US}.
LDAP search starting point (base) for address completion.
+
+@item wl-draft-remove-group-list-contents
+@vindex wl-draft-remove-group-list-contents
+The initial setting is @code{t}.
+If non-nil, remove the group-lists' members in the recipients when
+sending the message (group-list means the description such as
+@samp{Group: foo@@gohome.org, bar@@gohome.org;} in the recipients).
@end table
@node Disconnected Operations, Expire and Archive, Draft, Top
@item wl-highlight-folder-opened-face
The face for open groups in the folder mode.
-It is meaningful when @code{wl-highlight-group-folder-by-numbers} is
+It is meaningful when @code{wl-highlight-folder-by-numbers} is
@code{nil} or a @var{number}.
@item wl-highlight-folder-closed-face
The face for close groups in the folder mode.
-It is meaningful when @code{wl-highlight-group-folder-by-numbers} is
+It is meaningful when @code{wl-highlight-folder-by-numbers} is
@code{nil} or a @var{number}.
@item wl-highlight-folder-path-face
Moreover, the behavior of @kbd{a} with prefix argument can
be directed by @code{wl-draft-reply-with-argument-list} as well.
+Note: To set the behavior when you reply to the message written by yourself, use
+@code{wl-draft-reply-myself-without-argument-list} and
+@code{wl-draft-reply-myself-with-argument-list}
+instead of them.
+
@node Thread Format, User-Agent Field, Draft for Reply, Advanced Settings
@subsection Appearance of Threads
+2000-11-15 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * elmo-version.el (elmo-version): Up to 2.5.1.
+
+2000-11-13 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * elmo-pop3.el (elmo-pop3-folder-exists-p): Don't use UIDL.
+
+ * elmo-internal.el (elmo-internal-search): Fix last change.
+
2000-11-08 Yuuichi Teranishi <teranisi@gohome.org>
+ * elmo-internal.el (elmo-internal-search): Rewrite.
+ (Fixed problem which is pointed out by Akihiro MOTOKI
+ <motoki@da.jp.nec.com>)
+
* elmo-version.el (elmo-version): Up to 2.5.0.
2000-11-06 Kenichi OKADA <okada@opaopa.org>
nil)
(defun elmo-internal-search (spec condition &optional from-msgs msgdb)
- (let* ((mark-alist
- (or elmo-msgdb-global-mark-alist
- (setq elmo-msgdb-global-mark-alist
- (elmo-object-load (expand-file-name
- elmo-msgdb-global-mark-filename
- elmo-msgdb-dir)))))
+ (let* ((msgs (or from-msgs (elmo-internal-list-folder spec)))
(loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
(elmo-msgdb-location-load (elmo-msgdb-expand-path
spec))))
(number-list (mapcar 'car loc-alist))
+ (i 0)
+ (num (length msgs))
cache-file
- ret-val
- case-fold-search msg
- percent i num)
- (setq num (length loc-alist))
- (setq i 0)
- (while loc-alist
- (if (and (setq cache-file (elmo-cache-exists-p (cdr (car loc-alist))))
+ matched
+ case-fold-search)
+ (setq num (length msgs))
+ (while msgs
+ (if (and (setq cache-file (elmo-cache-get-path (cdr (assq (car msgs)
+ loc-alist))))
+ (file-exists-p cache-file)
(elmo-file-field-condition-match cache-file
condition
- (car (car loc-alist))
+ (car msgs)
number-list))
- (setq ret-val (append ret-val (list (car (car loc-alist))))))
- (setq i (1+ i))
- (setq percent (/ (* i 100) num))
+ (setq matched (nconc matched (list (car msgs)))))
(elmo-display-progress
'elmo-internal-search "Searching..."
- percent)
- (setq loc-alist (cdr loc-alist)))
- ret-val))
+ (/ (* (setq i (1+ i)) 100) num))
+ (setq msgs (cdr msgs)))
+ matched))
(defun elmo-internal-use-cache-p (spec number)
nil)
(elmo-pop3-plugged-p spec))
(save-excursion
(let (elmo-auto-change-plugged ; don't change plug status.
+ elmo-pop3-use-uidl ; No need to use uidl.
session)
(prog1
(setq session (elmo-pop3-get-session spec))
;; product-define in the first place
(product-provide 'elmo-version
- (product-define "ELMO" nil '(2 5 0)))
+ (product-define "ELMO" nil '(2 5 1)))
;; For APEL 10.2 or earlier.
(defun-maybe product-version-as-string (product)
2.3.x Roam
2.4.0 Rio
+
2.5.x Smooth
;;"e-mail2@bbb.com" ...
))
+;; Subscribed mailing list
+(setq wl-subscribed-mailing-list
+ '("wl@lists.airs.net"
+ "apel-ja@m17n.org"
+ ;;"ml@example.com" ...
+ ))
+
;; Change summary display function.
;; get extra field values as overview information (only localdir folder).
;;"e-mail2@bbb.com" ...
))
+;; \e$B<+J,$N;22C$7$F$$$k%a!<%j%s%0%j%9%H$N%j%9%H\e(B
+(setq wl-subscribed-mailing-list
+ '("wl@lists.airs.net"
+ "apel-ja@m17n.org"
+ ;;"ml@example.com" ...
+ ))
+
;; \e$B%5%^%jI=<(4X?t$rJQ99$9$k\e(B
;; \e$B%5%^%jI=<($K$*$$$F;HMQ$9$k>pJs$r;}$D%U%#!<%k%I$r\e(Boverview\e$B>pJs$K\e(B
+2000-11-15 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * Version number is increased to 2.5.1.
+
+2000-11-14 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * wl-thread.el (wl-thread-update-line-on-buffer-sub):
+ Print refile/copy destination.
+
+2000-11-13 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * wl.el (wl-toggle-plugged): Don't call `wl-biff-start' if
+ queue-flush-only is non-nil.
+
+ * wl-util.el (wl-biff-check-folder-async): Fix close parenthesis.
+
+ * wl-summary.el (wl-summary-refile-subr): Use folder realname while
+ checking cache folder.
+
+2000-11-09 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Use
+ `regexp-quote'.
+
2000-11-08 TAKAHASHI Kaoru <kaoru@kaisei.org>
* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): New
(or (wl-refile-guess entity) wl-trash-folder)
(format "for %s" copy-or-refile)))))
;; Cache folder hack by okada@opaopa.org
- (if (and (eq (car (elmo-folder-get-spec folder)) 'cache)
+ (if (and (eq (car (elmo-folder-get-spec
+ (wl-folder-get-realname folder))) 'cache)
(not (string= folder
(setq tmp-folder
(concat "'cache/"
(mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
(buffer-read-only nil)
(inhibit-read-only t)
- overview-entity temp-mark summary-line invisible-top)
+ overview-entity temp-mark summary-line invisible-top dest-pair)
(if (wl-thread-delete-line-from-buffer msg)
(progn
- (if (memq msg wl-summary-buffer-delete-list)
- (setq temp-mark "D"))
- (if (memq msg wl-summary-buffer-target-mark-list)
- (setq temp-mark "*"))
- (if (assq msg wl-summary-buffer-refile-list)
- (setq temp-mark "o"))
- (if (assq msg wl-summary-buffer-copy-list)
- (setq temp-mark "O"))
- (unless temp-mark
- (setq temp-mark (wl-summary-get-score-mark msg)))
+ (cond
+ ((memq msg wl-summary-buffer-delete-list)
+ (setq temp-mark "D"))
+ ((memq msg wl-summary-buffer-target-mark-list)
+ (setq temp-mark "*"))
+ ((setq dest-pair (assq msg wl-summary-buffer-refile-list))
+ (setq temp-mark "o"))
+ ((setq dest-pair (assq msg wl-summary-buffer-copy-list))
+ (setq temp-mark "O"))
+ (t (setq temp-mark (wl-summary-get-score-mark msg))))
(when (setq overview-entity
(elmo-msgdb-overview-get-entity
msg wl-summary-buffer-msgdb))
nil
(wl-thread-maybe-get-children-num msg))
temp-mark entity))
- (wl-summary-insert-line summary-line)))
+ (save-excursion
+ (wl-summary-insert-line summary-line))
+ (if dest-pair
+ (wl-summary-print-destination (car dest-pair)
+ (cdr dest-pair)))))
;; insert thread (moving thread)
(if (not (setq invisible-top
(wl-thread-entity-parent-invisible-p entity)))
(let ((elmo-network-session-name-prefix "BIFF-"))
(elmo-folder-diff-async folder)))
(wl-biff-notify (car (wl-biff-check-folder folder))
- notify-minibuf))
- (setq wl-biff-check-folders-running nil))))
+ notify-minibuf)
+ (setq wl-biff-check-folders-running nil)))))
;;; wl-util.el ends here
(progn
;; flush queue!!
(elmo-dop-queue-flush)
- (wl-biff-start)
+ (unless queue-flush-only (wl-biff-start))
(if (and wl-draft-enable-queuing
wl-auto-flush-queue)
(wl-draft-queue-flush))
projects / elisp / wanderlust.git / commitdiff