[Mew-dist 15364] 'mt'ってどこでも出来ていいのかなぁ ? (was Re: b87)

NINOMIYA Hideyuki nin at example.com
2000年 12月 9日 (土) 21:59:12 JST


こんばんは	二宮@お四国 です

+inbox や thread じゃない Virtual folder でも、'mt' 出来るのですが、
そのメッセージに review マークが付くだけで thread 全体にマークする
事は出来ません。

ならば、thread folder only であるべきではと思い(↓)こうしてみました。

Index: mew-summary.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-summary.el,v
retrieving revision 1.8
diff -c -F(def -r1.8 mew-summary.el
*** mew-summary.el	2000/12/09 08:09:43	1.8
--- mew-summary.el	2000/12/09 12:34:35
*************** (defmacro mew-virtual-only (&rest body)
*** 139,144 ****
--- 141,154 ----
    (` (cond
        ((not (mew-virtual-p))
         (message "This command can be used in Virtual mode only"))
+       (t (,@ body)))))
+ 
+ (defmacro mew-thread-only (&rest body)
+   "See if this buffer is Thread folder.
+ This macro is used to prohibit using a command in Summary mode."
+   (` (cond
+       ((not (mew-thread-p))
+        (message "This command can be used in Thread folder only"))
        (t (,@ body)))))
  
  (defmacro mew-summary-not-in-queue (&rest body)
Index: mew-thread.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-thread.el,v
retrieving revision 1.5
diff -c -F(def -r1.5 mew-thread.el
*** mew-thread.el	2000/12/09 08:09:44	1.5
--- mew-thread.el	2000/12/09 12:37:43
*************** (defun mew-summary-fancy-thread-print-tr
*** 445,468 ****
  (defun mew-summary-mark-select-thread ()
    "Put the '*' mark to all message in the current sub-thread."
    (interactive)
!   (let* ((folder (mew-summary-folder-name))
! 	 (column (mew-summary-scan-form folder 'column))
! 	 (regex ""))
!     (save-excursion
!       (move-to-column column)
!       (while (looking-at mew-thread-indent-regex)
! 	(setq regex (concat regex mew-thread-indent-regex))
! 	(forward-char mew-thread-indent-length))
!       (setq regex (concat regex mew-thread-indent-regex))
!       (mew-summary-review-one 'no-msg)
!       (forward-line)
!       (catch 'loop
! 	(while t
! 	  (move-to-column column)
! 	  (if (looking-at regex)
! 	      (mew-summary-review-one 'no-msg)
! 	    (throw 'loop nil))
! 	  (forward-line))))))
  
  (defun mew-summary-thread-up ()
    "Move onto the top of the current thread.  If the current message is
--- 455,479 ----
  (defun mew-summary-mark-select-thread ()
    "Put the '*' mark to all message in the current sub-thread."
    (interactive)
!   (mew-thread-only
!    (let* ((folder (mew-summary-folder-name))
! 	  (column (mew-summary-scan-form folder 'column))
! 	  (regex ""))
!      (save-excursion
!        (move-to-column column)
!        (while (looking-at mew-thread-indent-regex)
! 	 (setq regex (concat regex mew-thread-indent-regex))
! 	 (forward-char mew-thread-indent-length))
!        (setq regex (concat regex mew-thread-indent-regex))
!        (mew-summary-review-one 'no-msg)
!        (forward-line)
!        (catch 'loop
! 	 (while t
! 	   (move-to-column column)
! 	   (if (looking-at regex)
! 	       (mew-summary-review-one 'no-msg)
! 	     (throw 'loop nil))
! 	   (forward-line)))))))
  
  (defun mew-summary-thread-up ()
    "Move onto the top of the current thread.  If the current message is

(↑)ちょっと offset が出ると思います。m(__)m
# thread separator patch 当てた後だから...

または、+inbox や Virtual folder でも 'mt' でちゃんと thread にマーク
されるようにするか...
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html



Mew-dist メーリングリストの案内