* doc/wl-ja.texi, doc/wl.texi: Applied patch from

Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>.

* wl-vars.el (wl-folder-process-duplicates-alist): Changed default
value to nil (According to the patch from
Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>).

* wl-util.el (wl-biff-check-folder): Call elmo-folder-check instead
of elmo-folder-close.

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 22c4ad8..9d57b6d 100644 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -3625,6 +3625,29 @@ Non-nil \e$B$J$i\e(B @code{wl-summary-jump-to-msg-by-message-id} \e$B$G!"%a%C%;!<%8
 @vindex elmo-pop3-use-cache
 \e$B=i4|@_Dj$O\e(B @code{t}\e$B!#\e(BNon-nil \e$B$J$i!"\e(BPOP3 \e$B$GFI$s$@%a%C%;!<%8$r%-%c%C%7%e$7\e(B
 \e$B$^$9!#\e(B
+
+@item wl-folder-process-duplicates-alist
+@vindex wl-folder-process-duplicates-alist
+\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#=EJ#$7$?%a%C%;!<%8$,F1$8%U%)%k%@$K$"$k>l9g$NF0:n\e(B
+\e$B$r;XDj$7$^$9!#3F9`L\$O!"%U%)%k%@L>$N@55,I=8=$HF0:n$+$i$J$j$^$9!#\e(B
+\e$BF0:n$H$7$F$O0J2<$N$b$N$,;XDj$G$-$^$9!#\e(B
+
+@example
+@code{nil} : \e$B=EJ#%a%C%;!<%8$KBP$7!$2?$b$7$J$$!%\e(B
+@code{hide} : \e$B=EJ#%a%C%;!<%8$r%5%^%j$KI=<($7$J$$!%\e(B
+@code{read} : \e$B=EJ#%a%C%;!<%8$r4{FI$K$9$k!%\e(B
+@end example
+
+@noindent
+\e$BNc$($P0J2<$N$h$&$K@_Dj$7$^$9\e(B (\e$B%^%k%A%U%)%k%@$G=EJ#%a%C%;!<%8$r1#$9>l9g\e(B)
+
+@lisp
+@group
+(setq wl-folder-process-duplicates-alist
+                 '(("^\\+draft$" . nil) ("^\\+trash$" . nil)
+                   ("^\\*.*" . hide) (".*" . read)))
+@end group
+@end lisp
 @end table
 
 

diff --git a/doc/wl.texi b/doc/wl.texi
index c6f233f..21bc00e 100644 (file)
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -3632,6 +3632,30 @@ cached.
 @vindex elmo-pop3-use-cache
 The initial setting is @code{t}.  If non-nil, messages read via POP3 are
 cached.
+
+@item wl-folder-process-duplicates-alist
+@vindex wl-folder-process-duplicates-alist
+The initial setting is @code{nil}.
+This list determines how to deal with duplicated messages in the same folder.
+Each item in the list is regexp of folder name and action; you can specify any
+one of the following in the place of action:
+
+@example
+@code{nil} : do nothing for duplicated messages.
+@code{hide} : hide duplicated messages from the summary.
+@code{read} : set duplicated messages as read.
+@end example
+
+@noindent
+Following is an example (hide duplicated messages in multi folders)
+
+@lisp
+@group
+(setq wl-folder-process-duplicates-alist
+                 '(("^\\+draft$" . nil) ("^\\+trash$" . nil)
+                   ("^\\*.*" . hide) (".*" . read)))
+@end group
+@end lisp
 @end table
 
 

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0f64a1e..57f2974 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2001-06-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-vars.el (wl-folder-process-duplicates-alist): Changed default
+       value to nil (According to the patch from
+       Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>).
+
+       * wl-util.el (wl-biff-check-folder): Call elmo-folder-check instead
+       of elmo-folder-close.
+
 2001-06-06  Peter Møller Neergaard <turtle@bu.edu>
 
        * wl-summary.el (wl-summary-resend-bounced-mail): Modified regexp

diff --git a/wl/wl-util.el b/wl/wl-util.el
index ff5b3f1..f8c94a2 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -829,7 +829,7 @@ This function is imported from Emacs 20.7."
   (if (eq (elmo-folder-type folder) 'pop3)
       ;; pop3 biff should share the session.
       (prog2
-         (elmo-folder-close folder) ; Close session.
+         (elmo-folder-check folder)
          (wl-folder-check-one-entity (elmo-folder-name-internal folder))
        (elmo-folder-close folder))
     (let ((elmo-network-session-name-prefix "BIFF-"))

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 1c14231..64bf9a4 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1645,10 +1645,7 @@ If nil, always use default."
   :type 'boolean
   :group 'wl-pref)
 
-(defcustom wl-folder-process-duplicates-alist
-  (list (cons (concat "^" (regexp-quote wl-draft-folder) "$\\|^"
-                     (regexp-quote wl-trash-folder) "$") nil)
-       (cons ".*" 'hide))
+(defcustom wl-folder-process-duplicates-alist nil
   "Specify process type of duplicated messages.
 It should be a list of cons cell like: (REGEXP . TYPE)
 REGEXP is a regular expression string of folder name.