;; 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).
;; 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).
;; 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).
;; 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).
; (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)
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
(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)))
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)))
(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))
(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)
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).
;; 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).