[Mew-dist 15388] RE: b87

[KOIE Hidetaka ( 鯉江英隆 )]

 From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
 Subject:    [Mew-dist 15354] b87
 Date:       Fri, 8 Dec 2000 21:51:02 +0900
 Message-Id: <20001208.215956.74693898.kazu at example.com>

  | 	ftp://ftp.Mew.org/pub/Mew/alpha/mew-1.95b87.tar.gz

モードラインがに余裕がないのでがmode-nameを変数にしました。
また、summaryバッファでmm(mew-summary-mark-make-thread)したときに
メッセージ番号を保存するようにしました。

ところでmmするとreviewマークが消えてしまうようです。
これは仕様ですか?

━━━━━━━━━━━━━━ここから━━━━━━━━━━━━━━
diff -ru -F^( mew-1.95b87.org/mew-draft.el mew-1.95b87/mew-draft.el
--- mew-1.95b87.org/mew-draft.el	Tue Nov 28 17:24:03 2000
+++ mew-1.95b87/mew-draft.el	Tue Dec 12 14:59:26 2000
@@ -195,7 +195,7 @@ (defun mew-draft-mode-name (&optional he
      (mew-protect-privacy-always
       (setq pcdb (mew-pcdb-by-service mew-protect-privacy-always-type))
       (setq sub (mew-pcdb-mark pcdb))))
-    (setq mode-name (if header "Header" "Draft"))
+    (setq mode-name (if header mew-mode-name-header mew-mode-name-draft))
     (if sub (setq mode-name (concat mode-name " " sub)))
     (if (not (mew-config-default-p mew-draft-buffer-config))
 	(setq mode-name (concat mode-name " " mew-draft-buffer-config)))
diff -ru -F^( mew-1.95b87.org/mew-message.el mew-1.95b87/mew-message.el
--- mew-1.95b87.org/mew-message.el	Tue Nov 28 01:06:17 2000
+++ mew-1.95b87/mew-message.el	Tue Dec 12 14:59:26 2000
@@ -33,7 +33,7 @@ (defun mew-message-mode ()
 "
   (interactive)
   (setq major-mode 'mew-message-mode)
-  (setq mode-name "Message")
+  (setq mode-name mew-mode-name-message)
   (setq mode-line-buffer-identification mew-mode-line-id)
   (use-local-map mew-message-mode-map)
   (setq buffer-read-only t)
diff -ru -F^( mew-1.95b87.org/mew-summary.el mew-1.95b87/mew-summary.el
--- mew-1.95b87.org/mew-summary.el	Fri Dec  8 22:08:02 2000
+++ mew-1.95b87/mew-summary.el	Tue Dec 12 14:59:26 2000
@@ -533,10 +533,10 @@ (defun mew-summary-mode-name ()
 	(out (if(mew-config-default-p mew-config-output)
 		 "" mew-config-output)))
     (if (and (string= in "") (string= out ""))
-	(setq mode-name "Summary")
+	(setq mode-name mew-mode-name-summary)
       (if (and mew-config-synchronize (string= in out))
-	  (setq mode-name (format "Summary %s" in))
-	(setq mode-name (format "Summary %s:%s" in out))))
+	  (setq mode-name (format "%s %s" mew-mode-name-summary in))
+	(setq mode-name (format "%s %s:%s" mew-mode-name-summary in out))))
     (force-mode-line-update)))
 
 (defun mew-summary-mode-line ()
diff -ru -F^( mew-1.95b87.org/mew-thread.el mew-1.95b87/mew-thread.el
--- mew-1.95b87.org/mew-thread.el	Fri Dec  8 21:59:11 2000
+++ mew-1.95b87/mew-thread.el	Tue Dec 12 14:59:26 2000
@@ -172,7 +172,8 @@ (defun mew-thread-setup ()
 (defun mew-summary-mark-make-thread ()
   "Making threads for messages marked with '*'."
   (interactive)
-  (mew-summary-thread-region (point-min) (point-max) 'mark))
+  (mew-summary-thread-region (point-min) (point-max) 'mark
+                             (mew-summary-message-number)))
 
 (defmacro mew-virtual-cache-valid-p (vfolder)
   (` (equal mew-summary-buffer-folder-cache-time
diff -ru -F^( mew-1.95b87.org/mew-vars.el mew-1.95b87/mew-vars.el
--- mew-1.95b87.org/mew-vars.el	Fri Dec  8 11:03:48 2000
+++ mew-1.95b87/mew-vars.el	Tue Dec 12 14:59:26 2000
@@ -1854,6 +1854,17 @@ (defcustom mew-x-face-file "~/.xface"
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
+;;; Mode names
+;;;
+
+(defvar mew-mode-name-header "Header")
+(defvar mew-mode-name-draft  "Draft")
+(defvar mew-mode-name-message "Message")
+(defvar mew-mode-name-summary "Summary")
+(defvar mew-mode-name-virtual "Virtual")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
 ;;; For broken MUAs
 ;;;
 
diff -ru -F^( mew-1.95b87.org/mew-virtual.el mew-1.95b87/mew-virtual.el
--- mew-1.95b87.org/mew-virtual.el	Wed Oct 18 02:18:11 2000
+++ mew-1.95b87/mew-virtual.el	Tue Dec 12 14:59:26 2000
@@ -26,7 +26,7 @@ (defun mew-virtual-mode ()
   ;;
   (setq selective-display t)
   (setq selective-display-ellipses nil)
-  (setq mode-name "Virtual")
+  (setq mode-name mew-mode-name-virtual)
   ;;
   (mew-summary-setup-mode-line)
   (mew-summary-setup-decoration)

━━━━━━━━━━━━━━ここまで━━━━━━━━━━━━━━

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>