* tm-wl.el, wl-address.el, wl-demo.el, wl-dnd.el, wl-draft.el,
authorteranisi <teranisi>
Mon, 17 Jul 2000 03:58:59 +0000 (03:58 +0000)
committerteranisi <teranisi>
Mon, 17 Jul 2000 03:58:59 +0000 (03:58 +0000)
wl-draft.el.orig, wl-expire.el, wl-fldmgr.el, wl-folder.el,
wl-highlight.el, wl-message.el, wl-mime.el, wl-mule.el, wl-nemacs.el,
wl-refile.el, wl-refile.el.orig, wl-score.el, wl-summary.el,
wl-summary.el.orig, wl-template.el, wl-thread.el, wl-util.el,
wl-vars.el, wl-xmas.el, wl.el (toplevel): Deleted time-stamp line.

* wl-draft.el (wl-draft-reply): Bind `eword-lexical-analyzer' locally.

21 files changed:
wl/tm-wl.el
wl/wl-address.el
wl/wl-dnd.el
wl/wl-draft.el
wl/wl-expire.el
wl/wl-fldmgr.el
wl/wl-folder.el
wl/wl-highlight.el
wl/wl-message.el
wl/wl-mime.el
wl/wl-mule.el
wl/wl-nemacs.el
wl/wl-refile.el
wl/wl-score.el
wl/wl-summary.el
wl/wl-template.el
wl/wl-thread.el
wl/wl-util.el
wl/wl-vars.el
wl/wl-xmas.el
wl/wl.el

index 7507111..beb8277 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/04/20 13:45:03 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index dba19d2..2146f35 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-06-19 13:03:50 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 5578a7a..fd6edb6 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-02-18 19:14:53 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index f3cf8d0..b4bfba4 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/07/13 12:41:30 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -274,6 +273,13 @@ the `wl-smtp-features' variable."
 ;  (save-excursion 
   (let ((r-list (if no-arg wl-draft-reply-without-argument-list
                  wl-draft-reply-with-argument-list))
+       (eword-lexical-analyzer '(eword-analyze-quoted-string
+                                 eword-analyze-domain-literal
+                                 eword-analyze-comment
+                                 eword-analyze-spaces
+                                 eword-analyze-special
+                                 eword-analyze-encoded-word
+                                 eword-analyze-atom))
        to mail-followup-to cc subject in-reply-to references newsgroups
        from addr-alist)
     (set-buffer buf)
index 5a87bf5..f6bc13f 100644 (file)
@@ -5,7 +5,6 @@
 
 ;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/04/15 13:53:01 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index a498228..2cbdaaf 100644 (file)
@@ -5,7 +5,6 @@
 
 ;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-04-07 10:40:40 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 50aa0c7..5bb76b5 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-05-30 09:33:02 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 0c9db1d..3bb83a5 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/03/05 00:59:10 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index e8ec543..4746eea 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-03-17 10:19:41 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index f6def17..2837789 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/06/22 19:36:21 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index e4e85cf..48cff6f 100644 (file)
@@ -5,7 +5,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-03-22 15:57:29 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 4a28f3e..c76c9bc 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-03-22 15:57:31 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index bc426ab..ee0296c 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/06/30 09:51:03 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index cb9ced2..0cfd20e 100644 (file)
@@ -5,7 +5,6 @@
 
 ;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/06/12 13:22:49 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 12a33f4..ee7ddcb 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/07/13 10:56:56 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -2201,8 +2200,7 @@ If optional argument is non-nil, checking is omitted."
       (wl-summary-set-message-modified)
       (wl-summary-set-mark-modified)
       (erase-buffer))
-    (if (and (setq has-nntp (elmo-folder-contains-type folder 'nntp))
-            (not elmo-nntp-use-killed-list))
+    (if (not elmo-use-killed-list)
        (setq diff (if (eq (elmo-folder-get-type folder) 'multi)
                       (elmo-multi-list-bigger-diff in-folder in-db)
                     (elmo-list-bigger-diff in-folder in-db)))
@@ -2247,8 +2245,7 @@ If optional argument is non-nil, checking is omitted."
        wl-summary-unread-uncached-mark)
       ;; Confirm appended message number.
       (setq append-list (wl-summary-confirm-appends initial-append-list))
-      (when (and append-list
-                has-nntp
+      (when (and elmo-use-killed-list
                 (not (eq (length initial-append-list)
                          (length append-list)))
                 (setq diff (elmo-list-diff initial-append-list append-list)))
@@ -2985,7 +2982,7 @@ If optional argument is non-nil, checking is omitted."
 (defun wl-summary-search-by-subject (entity overview)
   (let ((buf (get-buffer-create wl-summary-search-buf-name))
        (folder-name wl-summary-buffer-folder-name)
-       match founds)
+       match founds found-entity)
     (save-excursion
       (set-buffer buf)
       (let ((case-fold-search t))
@@ -3003,25 +3000,27 @@ If optional argument is non-nil, checking is omitted."
                     (elmo-msgdb-overview-entity-get-subject entity)))
        (if (string= match "")
            (setq match "\n"))
-       (goto-char (point-min))
+       (goto-char (point-max))
        (while (and (not founds)
-                   (not (eobp))
-                   (search-forward match nil t))
+                   (not (= (point) (point-min)))
+                   (search-backward match nil t))
          ;; check exactly match
-         (when (and (eolp)
-                    (= (save-excursion (forward-line 0) (point))
-                       (match-beginning 0)))
-           (setq founds (wl-summary-get-alike))))))
-    (if (and founds
-            ;; Is founded entity myself or children?
-            (not (string=
-                  (elmo-msgdb-overview-entity-get-id entity)
-                  (elmo-msgdb-overview-entity-get-id (car founds))))
-            (not (wl-thread-descendant-p
-                  (elmo-msgdb-overview-entity-get-number entity)
-                  (elmo-msgdb-overview-entity-get-number (car founds)))))
-       ;; return first matching entity
-       (car founds))))
+         (when (and (bolp)
+                    (= (point-at-eol)
+                       (match-end 0)))
+           (setq found-entity (wl-summary-get-alike))
+           (if (and found-entity
+                    ;; Is founded entity myself or children?
+                    (not (string=
+                          (elmo-msgdb-overview-entity-get-id entity)
+                          (elmo-msgdb-overview-entity-get-id (car found-entity))))
+                    (not (wl-thread-descendant-p
+                          (elmo-msgdb-overview-entity-get-number entity)
+                          (elmo-msgdb-overview-entity-get-number (car found-entity)))))
+               ;; return matching entity
+               (setq founds found-entity))))
+       (if founds
+           (car founds))))))
 
 (defun wl-summary-insert-thread-entity (entity overview mark-alist update
                                               &optional force-insert)
index 78d49f5..dfe7ebc 100644 (file)
@@ -5,7 +5,6 @@
 
 ;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-03-03 13:18:35 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 9effecb..b17bd5b 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/06/05 17:19:53 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 3162092..7f05b10 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-03-22 15:56:12 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 975acd1..e534557 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/07/13 12:39:53 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index d82a5f9..51c70a3 100644 (file)
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/06/22 11:17:27 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
index 33fd1e8..a6420a3 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -4,7 +4,6 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/06/22 11:47:35 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).