From: teranisi Date: Mon, 17 Jul 2000 03:58:59 +0000 (+0000) Subject: * tm-wl.el, wl-address.el, wl-demo.el, wl-dnd.el, wl-draft.el, X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f37134c5b3c232baa1970c3aa28ddf3f3f8f8450;p=elisp%2Fwanderlust.git * tm-wl.el, wl-address.el, wl-demo.el, wl-dnd.el, wl-draft.el, 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. --- diff --git a/wl/tm-wl.el b/wl/tm-wl.el index 7507111..beb8277 100644 --- a/wl/tm-wl.el +++ b/wl/tm-wl.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-address.el b/wl/wl-address.el index dba19d2..2146f35 100644 --- a/wl/wl-address.el +++ b/wl/wl-address.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el index 5578a7a..fd6edb6 100644 --- a/wl/wl-dnd.el +++ b/wl/wl-dnd.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-draft.el b/wl/wl-draft.el index f3cf8d0..b4bfba4 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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) diff --git a/wl/wl-expire.el b/wl/wl-expire.el index 5a87bf5..f6bc13f 100644 --- a/wl/wl-expire.el +++ b/wl/wl-expire.el @@ -5,7 +5,6 @@ ;; Author: Masahiro MURATA ;; 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). diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el index a498228..2cbdaaf 100644 --- a/wl/wl-fldmgr.el +++ b/wl/wl-fldmgr.el @@ -5,7 +5,6 @@ ;; Author: Masahiro MURATA ;; 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). diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 50aa0c7..5bb76b5 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el index 0c9db1d..3bb83a5 100644 --- a/wl/wl-highlight.el +++ b/wl/wl-highlight.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-message.el b/wl/wl-message.el index e8ec543..4746eea 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-mime.el b/wl/wl-mime.el index f6def17..2837789 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-mule.el b/wl/wl-mule.el index e4e85cf..48cff6f 100644 --- a/wl/wl-mule.el +++ b/wl/wl-mule.el @@ -5,7 +5,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-nemacs.el b/wl/wl-nemacs.el index 4a28f3e..c76c9bc 100644 --- a/wl/wl-nemacs.el +++ b/wl/wl-nemacs.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-refile.el b/wl/wl-refile.el index bc426ab..ee0296c 100644 --- a/wl/wl-refile.el +++ b/wl/wl-refile.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-score.el b/wl/wl-score.el index cb9ced2..0cfd20e 100644 --- a/wl/wl-score.el +++ b/wl/wl-score.el @@ -5,7 +5,6 @@ ;; Author: Masahiro MURATA ;; 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). diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 12a33f4..ee7ddcb 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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) diff --git a/wl/wl-template.el b/wl/wl-template.el index 78d49f5..dfe7ebc 100644 --- a/wl/wl-template.el +++ b/wl/wl-template.el @@ -5,7 +5,6 @@ ;; Author: Masahiro MURATA ;; 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). diff --git a/wl/wl-thread.el b/wl/wl-thread.el index 9effecb..b17bd5b 100644 --- a/wl/wl-thread.el +++ b/wl/wl-thread.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-util.el b/wl/wl-util.el index 3162092..7f05b10 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 975acd1..e534557 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el index d82a5f9..51c70a3 100644 --- a/wl/wl-xmas.el +++ b/wl/wl-xmas.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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). diff --git a/wl/wl.el b/wl/wl.el index 33fd1e8..a6420a3 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -4,7 +4,6 @@ ;; Author: Yuuichi Teranishi ;; 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).