[Mew-dist 10588] mew-virtual-thread's bug fix.

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

# 1.94 release おめでとうございます。

この前、mew-virtual-thread.el で、どたばたと IMAP 対応したときに
情けないことにエンバグしてしまいました。

mew-1.94/contrib/mew-virtual-thread.el をお使いの方は以下のパッ
チをあてて下さい。(_ _)

# 少々違うものも入っていますが、気にしないで下さいね。
# しかし、Mew 本体の IMAP 対応じゃ無くて、良かった良かった。^^;
-------------- next part --------------
--- mew-virtual-thread.el	1999-09-06 17:01:46+09	1.10
+++ mew-virtual-thread.el	1999-09-06 17:30:40+09
@@ -27,7 +27,7 @@
 ;;;    The marks transfer to original folder.
 ;;;
 
-(defconst mew-virtual-thread-version "mew-virtual-thread.el 0.15")
+(defconst mew-virtual-thread-version "mew-virtual-thread.el 0.16")
 
 (eval-when-compile (require 'mew))
 
@@ -65,7 +65,8 @@
 	       (setq range (mew-virtual-thread-number
 			    (min (region-beginning) (region-end))
 			    (max (region-beginning) (region-end))))
-	     (setq range (mew-virtual-thread-number (point) (point-max)))))
+	     (setq range (mew-virtual-thread-number
+			  (progn (beginning-of-line) (point)) (point-max)))))
 	 (or (listp range) (setq range (list range)))
 	 (if (and mew-virtual-thread-get-remote (mew-folder-remotep fld))
 	     (save-excursion
@@ -159,7 +160,7 @@
   (let (msgs)
     (save-excursion
       (goto-char beg)
-      (while (re-search-forward "^ *\\([1-9][0-9]+\\)" end t)
+      (while (re-search-forward "^ *\\([1-9][0-9]*\\)" end t)
 	(if (or (mew-summary-marked-p) (mew-in-decode-syntax-p))
 	    ()
 	  (setq msgs (cons (mew-match 1) msgs)))))
@@ -208,7 +209,9 @@
 (make-variable-buffer-local 'mew-virtual-thread-original-folder)
 
 (defun mew-virtual-thread-scan (fld src range)
-  (let ((vfld (concat "++" (substring fld 1) "-thread"))
+  (let ((vfld (if (mew-folder-remotep fld)
+		  (concat "++" fld "-thread")
+		(concat "++" (substring fld 1) "-thread")))
 	buf num)
     (setq buf (get-buffer-create vfld))
     (switch-to-buffer buf)