From: teranisi Date: Tue, 30 Apr 2002 08:29:23 +0000 (+0000) Subject: * wl-summary.el (wl-summary-summary-line-already-exists-p): Abolished. X-Git-Tag: elmo-mark-root~186 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=02034b53dbafbc62c5b0f43c412ac727185033e9;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-summary-line-already-exists-p): Abolished. (wl-summary-insert-sequential): Renamed from wl-summary-insert-summary. (wl-summary-create-line): Renamed from wl-summary-overview-create-summary-line; Argument rearrangement. (wl-summary-update-thread): Follow the change above. * wl-thread.el (wl-thread-update-line-on-buffer-sub): Likewise. (wl-thread-insert-entity-sub): Likewise. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 1c6a9a4..0abf6f7 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,15 @@ 2002-04-30 Yuuichi Teranishi + * wl-summary.el (wl-summary-summary-line-already-exists-p): Abolished. + (wl-summary-insert-sequential): Renamed from wl-summary-insert-summary. + (wl-summary-create-line): Renamed from + wl-summary-overview-create-summary-line; + Argument rearrangement. + (wl-summary-update-thread): Follow the change above. + + * wl-thread.el (wl-thread-update-line-on-buffer-sub): Likewise. + (wl-thread-insert-entity-sub): Likewise. + * wl-summary.el (wl-summary-append-message-func-internal): Removed argument `overview', `mark-alist' and added `msgdb'. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index e719d93..13ff4bd 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1960,8 +1960,7 @@ If ARG is non-nil, checking is omitted." (defun wl-summary-get-append-message-func () (if (eq wl-summary-buffer-view 'thread) 'wl-summary-insert-thread-entity -;;; 'wl-summary-insert-thread - 'wl-summary-insert-summary)) + 'wl-summary-insert-sequential)) (defun wl-summary-sort () (interactive) @@ -2693,21 +2692,6 @@ If ARG, without confirm." (set-buffer-modified-p nil)) retval)) -(defun wl-summary-summary-line-already-exists-p (parent-number buffer) - "Return the depth." - (set-buffer buffer) - (goto-char (point-max)) - (let ((depth 0)) - (when (re-search-backward (format "^ *%s..../..\(.*\)..:.. " - parent-number) nil t) - (goto-char (match-end 0)) - (while (string-match wl-thread-indent-regexp - (char-to-string - (char-after (point)))) - (setq depth (+ 1 depth)) - (forward-char)) - (/ depth wl-thread-indent-level-internal)))) - (defun wl-summary-goto-top-of-current-thread () (wl-summary-jump-to-msg (wl-thread-entity-get-number @@ -2740,22 +2724,15 @@ If ARG, without confirm." (save-excursion (beginning-of-line)(point)) (save-excursion (end-of-line)(point)) 'mouse-face nil)) - (condition-case nil ; it's dangerous, so ignore error. - (run-hooks 'wl-summary-line-inserted-hook) - (error (ding) - (message "Error in wl-summary-line-inserted-hook")))) - -(defun wl-summary-insert-summary (entity msgdb dummy &optional dumm) - (let ((overview-entity entity) - summary-line msg) - (setq msg (elmo-msgdb-overview-entity-get-number entity)) - (when (setq summary-line - (wl-summary-overview-create-summary-line - msg entity nil 0 (elmo-msgdb-get-mark-alist msgdb))) - (let ((inhibit-read-only t) - buffer-read-only) - (goto-char (point-max)) - (wl-summary-insert-line summary-line))))) + (ignore-errors + (run-hooks 'wl-summary-line-inserted-hook))) + +(defun wl-summary-insert-sequential (entity msgdb &rest args) + (let ((inhibit-read-only t) + buffer-read-only) + (goto-char (point-max)) + (wl-summary-insert-line + (wl-summary-create-line entity nil nil)))) (defun wl-summary-default-subject-filter (subject) (let ((case-fold-search t)) @@ -2924,8 +2901,7 @@ If ARG, without confirm." mark-alist thr-entity parent-entity) - (let* ((depth 0) - (this-id (elmo-msgdb-overview-entity-get-id entity)) + (let* ((this-id (elmo-msgdb-overview-entity-get-id entity)) (overview-entity entity) (parent-id (elmo-msgdb-overview-entity-get-id parent-entity)) (parent-number (elmo-msgdb-overview-entity-get-number parent-entity)) @@ -2936,19 +2912,18 @@ If ARG, without confirm." (goto-char (point-max)) (beginning-of-line)) ;; parent already exists in buffer. - ((setq depth (or (wl-summary-summary-line-already-exists-p - parent-number (current-buffer)) -1)) - (setq depth (+ 1 depth)) + ((wl-summary-jump-to-msg parent-number) (wl-thread-goto-bottom-of-sub-thread))) - (if (and (setq msg (elmo-msgdb-overview-entity-get-number entity))) - (if (setq summary-line - (wl-summary-overview-create-summary-line - msg entity parent-entity depth mark-alist - (wl-thread-maybe-get-children-num msg) - nil thr-entity)) - (let ((inhibit-read-only t) - (buffer-read-only nil)) - (wl-summary-insert-line summary-line)))))) + (let ((inhibit-read-only t) + (buffer-read-only nil)) + (wl-summary-insert-line + (wl-summary-create-line + entity + parent-entity + nil + (wl-thread-maybe-get-children-num msg) + (wl-thread-make-indent-string thr-entity) + (wl-thread-entity-get-linked thr-entity)))))) (defun wl-summary-mark-as-unread (&optional number no-server-update @@ -4259,35 +4234,29 @@ If ARG, exit virtual folder." (aref datevec 4))) (error "??/??(??)??:??"))) -(defun wl-summary-overview-create-summary-line (msg - entity - parent-entity - depth - mark-alist - &optional - children-num - temp-mark thr-entity - subject-differ) +(defun wl-summary-create-line (entity parent temp-mark + &optional + thr-children-number + thr-indent-string + thr-linked) + "Create a summary line." (let ((wl-mime-charset wl-summary-buffer-mime-charset) (elmo-mime-charset wl-summary-buffer-mime-charset) - no-parent before-indent - from subject parent-raw-subject parent-subject - mark line + (folder wl-summary-buffer-elmo-folder) + (number (elmo-msgdb-overview-entity-get-number entity)) + no-parent from subject parent-raw-subject parent-subject + line (elmo-lang wl-summary-buffer-weekday-name-lang) - (children-num (if children-num (int-to-string children-num))) - (thr-str "") - linked) - (when thr-entity - (setq thr-str (wl-thread-make-indent-string thr-entity)) - (setq linked (wl-thread-entity-get-linked thr-entity))) - (if (string= thr-str "") + (children-num (if thr-children-number + (int-to-string thr-children-number)))) + (if (string= thr-indent-string "") (setq no-parent t)) ; no parent (if (and wl-summary-indent-length-limit (< wl-summary-indent-length-limit - (string-width thr-str))) - (setq thr-str (wl-set-string-width - wl-summary-indent-length-limit - thr-str))) + (string-width thr-indent-string))) + (setq thr-indent-string (wl-set-string-width + wl-summary-indent-length-limit + thr-indent-string))) (setq from (wl-set-string-width (if children-num @@ -4302,25 +4271,24 @@ If ARG, exit virtual folder." entity) wl-summary-no-subject-message))) (setq parent-raw-subject - (elmo-msgdb-overview-entity-get-subject parent-entity)) + (elmo-msgdb-overview-entity-get-subject parent)) (setq parent-subject (if parent-raw-subject (elmo-delete-char ?\n parent-raw-subject))) - (setq mark (or (cadr (assq msg mark-alist)) " ")) + (setq mark (or (elmo-message-mark folder number) " ")) (setq line (concat - (setq before-indent - (format (concat "%" - (int-to-string - wl-summary-buffer-number-column) - "s%s%s%s %s") - msg - (or temp-mark " ") - mark - (wl-summary-format-date - (elmo-msgdb-overview-entity-get-date entity)) - (if thr-str thr-str ""))) - (format (if linked + (format (concat "%" + (int-to-string + wl-summary-buffer-number-column) + "s%s%s%s %s") + number + (or temp-mark " ") + mark + (wl-summary-format-date + (elmo-msgdb-overview-entity-get-date entity)) + (or thr-indent-string "")) + (format (if thr-linked "<%s > %s" "[%s ] %s") (if children-num @@ -4335,7 +4303,8 @@ If ARG, exit virtual folder." (wl-summary-subject-func-internal subject) "")) (if (and (not wl-summary-width) wl-summary-subject-length-limit) - (truncate-string subject wl-summary-subject-length-limit) + (truncate-string subject + wl-summary-subject-length-limit) subject))))) (if wl-summary-width (setq line (wl-set-string-width @@ -4344,7 +4313,7 @@ If ARG, exit virtual folder." (wl-highlight-summary-line-string line mark temp-mark - thr-str)) + thr-indent-string)) line)) (defsubst wl-summary-buffer-number-column-detect (update) diff --git a/wl/wl-thread.el b/wl/wl-thread.el index b3a59a2..52a30f0 100644 --- a/wl/wl-thread.el +++ b/wl/wl-thread.el @@ -408,20 +408,17 @@ ENTITY is returned." (when (setq overview-entity (elmo-msgdb-overview-get-entity msg (wl-summary-buffer-msgdb))) - (setq summary-line - (wl-summary-overview-create-summary-line - msg - overview-entity - (elmo-msgdb-overview-get-entity - parent-msg (wl-summary-buffer-msgdb)) - nil - mark-alist - (if wl-thread-insert-force-opened - nil - (wl-thread-maybe-get-children-num msg)) - temp-mark entity)) - (save-excursion - (wl-summary-insert-line summary-line)) + (wl-summary-insert-line + (wl-summary-create-line + overview-entity + (elmo-msgdb-overview-get-entity + parent-msg (wl-summary-buffer-msgdb)) + temp-mark + (if wl-thread-insert-force-opened + nil + (wl-thread-maybe-get-children-num msg)) + (wl-thread-make-indent-string entity) + (wl-thread-entity-get-linked entity))) (if dest-pair (wl-summary-print-destination (car dest-pair) (cdr dest-pair))))) @@ -917,19 +914,17 @@ Message is inserted to the summary buffer." (nth 0 entity) (wl-summary-buffer-msgdb))) ;;; (wl-delete-all-overlays) (when overview-entity - (setq summary-line - (wl-summary-overview-create-summary-line - msg-num - overview-entity - (elmo-msgdb-overview-get-entity - (nth 0 parent-entity) (wl-summary-buffer-msgdb)) - (1+ indent) - mark-alist - (if wl-thread-insert-force-opened - nil - (wl-thread-maybe-get-children-num msg-num)) - temp-mark entity)) - (wl-summary-insert-line summary-line))))) + (wl-summary-insert-line + (wl-summary-create-line + overview-entity + (elmo-msgdb-overview-get-entity + (nth 0 parent-entity) (wl-summary-buffer-msgdb)) + temp-mark + (if wl-thread-insert-force-opened + nil + (wl-thread-maybe-get-children-num msg-num)) + (wl-thread-make-indent-string entity) + (wl-thread-entity-get-linked entity))))))) (defun wl-thread-insert-entity (indent entity parent-entity all) "Insert thread entity in current buffer."