* wl-vars.el (wl-draft-disable-bcc-for-mime-bcc): New user option.

(wl-draft-disable-fcc-for-mime-bcc): Ditto.

* wl-draft.el (wl-draft-deduce-address-list): Disable bcc while
mime-bcc if wl-draft-disable-bcc-for-mime-bcc is non-nil.
(wl-draft-get-fcc-list): Likewise.

* wl-thread.el (wl-thread-indent-regexp): Abolished.
(wl-thread-entity-cur): Ditto.
* wl-summary.el (wl-summary-buffer-set-folder): Removed
wl-thread-indent-regexp	setting.
(wl-summary-sync-update): Removed wl-thread-entity-cur setting.

* wl-summary.el (wl-summary-display-top): Highlight summary window when
wl-summary-lazy-highlight.
(wl-summary-display-bottom): Ditto.

* wl-thread.el (wl-thread-open-close): Likewise.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 644c553..ebab707 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,26 @@
+2002-05-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-vars.el (wl-draft-disable-bcc-for-mime-bcc): New user option.
+       (wl-draft-disable-fcc-for-mime-bcc): Ditto.
+
+       * wl-draft.el (wl-draft-deduce-address-list): Disable bcc while
+       mime-bcc if wl-draft-disable-bcc-for-mime-bcc is non-nil.
+       (wl-draft-get-fcc-list): Likewise.
+
 2002-05-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-thread.el (wl-thread-indent-regexp): Abolished.
+       (wl-thread-entity-cur): Ditto.
+       * wl-summary.el (wl-summary-buffer-set-folder): Removed
+       wl-thread-indent-regexp setting.
+       (wl-summary-sync-update): Removed wl-thread-entity-cur setting.
+
+       * wl-summary.el (wl-summary-display-top): Highlight summary window when
+       wl-summary-lazy-highlight.
+       (wl-summary-display-bottom): Ditto.
+
+       * wl-thread.el (wl-thread-open-close): Likewise.
+
        * wl-draft.el (wl-draft-do-mime-bcc): Decode field body of original
        from and subject;
        Bind wl-draft-use-frame;

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index b0a28d1..80610d0 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -988,7 +988,10 @@ from current buffer."
   "Get address list suitable for smtp RCPT TO:<address>.
 Group list content is removed if `wl-draft-remove-group-list-contents' is
 non-nil."
-  (let ((fields '("to" "cc" "bcc"))
+  (let ((fields (if (and wl-draft-doing-mime-bcc
+                        wl-draft-disable-bcc-for-mime-bcc)
+                   '("to" "cc")
+                 '("to" "cc" "bcc")))
        (resent-fields '("resent-to" "resent-cc" "resent-bcc"))
        (case-fold-search t)
        addrs recipients)
@@ -1428,26 +1431,31 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
            (point-max)))))))
 
 (defun wl-draft-get-fcc-list (header-end)
-  (let (fcc-list
-       (case-fold-search t))
-    (or (markerp header-end) (error "HEADER-END must be a marker"))
-    (save-excursion
-      (goto-char (point-min))
-      (while (re-search-forward "^Fcc:[ \t]*" header-end t)
-       (setq fcc-list
-             (cons (buffer-substring-no-properties
-                    (point)
-                    (progn
-                      (end-of-line)
-                      (skip-chars-backward " \t")
-                      (point)))
-                   fcc-list))
-       (save-match-data
-         (wl-folder-confirm-existence
-          (wl-folder-get-elmo-folder (eword-decode-string (car fcc-list)))))
-       (delete-region (match-beginning 0)
-                      (progn (forward-line 1) (point)))))
-    fcc-list))
+  (if (and wl-draft-doing-mime-bcc
+          wl-draft-disable-fcc-for-mime-bcc)
+      (progn
+       (wl-draft-delete-field "fcc")
+       nil)
+    (let (fcc-list
+         (case-fold-search t))
+      (or (markerp header-end) (error "HEADER-END must be a marker"))
+      (save-excursion
+       (goto-char (point-min))
+       (while (re-search-forward "^Fcc:[ \t]*" header-end t)
+         (setq fcc-list
+               (cons (buffer-substring-no-properties
+                      (point)
+                      (progn
+                        (end-of-line)
+                        (skip-chars-backward " \t")
+                        (point)))
+                     fcc-list))
+         (save-match-data
+           (wl-folder-confirm-existence
+            (wl-folder-get-elmo-folder (eword-decode-string (car fcc-list)))))
+         (delete-region (match-beginning 0)
+                        (progn (forward-line 1) (point)))))
+      fcc-list)))
 
 (defun wl-draft-do-fcc (header-end &optional fcc-list)
   (let ((send-mail-buffer (current-buffer))

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 8bae5b8..a6d7aa8 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -549,6 +549,8 @@
 (defun wl-summary-display-top ()
   (interactive)
   (goto-char (point-min))
+  (when wl-summary-lazy-highlight
+    (wl-highlight-summary-window))
   (if wl-summary-buffer-disp-msg
       (wl-summary-redisplay)))
 
@@ -556,6 +558,8 @@
   (interactive)
   (goto-char (point-max))
   (forward-line -1)
+  (when wl-summary-lazy-highlight
+    (wl-highlight-summary-window))
   (if wl-summary-buffer-disp-msg
       (wl-summary-redisplay)))
 
@@ -787,13 +791,6 @@ you."
    wl-thread-space-str-internal
    (or (nth 5 wl-summary-buffer-thread-indent-set)
        wl-thread-space-str))
-  (setq wl-thread-indent-regexp
-       (concat
-        (regexp-quote wl-thread-have-younger-brother-str-internal) "\\|"
-        (regexp-quote wl-thread-youngest-child-str-internal) "\\|"
-        (regexp-quote wl-thread-vertical-str-internal) "\\|"
-        (regexp-quote wl-thread-horizontal-str-internal) "\\|"
-        (regexp-quote wl-thread-space-str-internal)))
   (run-hooks 'wl-summary-buffer-set-folder-hook))
 
 (defun wl-summary-mode ()
@@ -2008,7 +2005,6 @@ If ARG is non-nil, checking is omitted."
                (when (and sync-all (eq wl-summary-buffer-view 'thread))
                  (elmo-kill-buffer wl-summary-search-buf-name)
                  (message "Inserting thread...")
-                 (setq wl-thread-entity-cur 0)
                  (wl-thread-insert-top)
                  (message "Inserting thread...done"))
                (if elmo-use-database

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 51cc684..fe8c722 100644 (file)
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -41,13 +41,10 @@
 (defvar wl-thread-entities nil)
 (defvar wl-thread-entity-list nil)     ; entity list
 (defvar wl-thread-entity-hashtb nil)   ; obarray
-(defvar wl-thread-indent-regexp nil)
 
 (make-variable-buffer-local 'wl-thread-entity-hashtb)
 (make-variable-buffer-local 'wl-thread-entities)     ; ".wl-thread-entity"
 (make-variable-buffer-local 'wl-thread-entity-list)  ; ".wl-thread-entity-list"
-(make-variable-buffer-local 'wl-thread-entity-cur)
-(make-variable-buffer-local 'wl-thread-indent-regexp)
 
 ;;; global flag
 (defvar wl-thread-insert-force-opened nil)
@@ -1087,6 +1084,8 @@ Message is inserted to the summary buffer."
              (wl-summary-jump-to-msg msg)
              (wl-thread-close
               (wl-thread-get-entity (wl-summary-message-number)))))))
+      (when wl-summary-lazy-highlight
+       (wl-highlight-summary-window))
       (wl-summary-set-message-modified)
       (set-buffer-modified-p nil))))
 

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index daee6fe..bbc4ae1 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1098,6 +1098,16 @@ If nil, a string `This is a blind carbon copy.' is used."
   :type '(string :tag "Body")
   :group 'wl-draft)
 
+(defcustom wl-draft-disable-bcc-for-mime-bcc t
+  "Disable Bcc while MIME-encapsulated Bcc."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-draft-disable-fcc-for-mime-bcc t
+  "Disable Fcc while MIME-encapsulated Bcc."
+  :type 'boolean
+  :group 'wl-draft)
+
 (defcustom wl-draft-config-alist nil
   "Alist of configuration field on draft.
 ex.