[mew-dist 23697] Re: folder name

[橋 宏彰]

> > やっぱり、(Virtual モード以外の) Summary モードの右端からフォルダ名を
> > 追い出しましょうか？

に追従するmew-nmz.elのパッチです。

その他以下のバグを修正しています。
    ・Namazu Virtual folderで"w"が効かない(エラーになる)
    ・z V で検索結果が全て表示できない事がある(mew-local-retriveを呼ん
      だ場合にバッファがクリアされてしまうため、fastpickした結果が消え
      てしまう)

マージしてもらえませんでしょうか。

# mew-local-retriveので、'virの時の第4?引数 ( (nth 3 args) ) は
# erase-bufferする/しないのフラグだと思って良いでしょうか。

--
  橋 宏彰 <hasi at example.com>

-------------- next part --------------
--- mew-nmz.el.orig	Mon Jun  2 22:48:00 2003
+++ mew-nmz.el	Mon Jun  2 22:46:43 2003
@@ -651,7 +651,7 @@
 	  (pattern (mew-nmz-input-pick-pattern))
 	  (buf (generate-new-buffer mew-buffer-prefix))
 	  (file (mew-make-temp-name))
-	  nmzdirs fldmsgs fld msgs fasts scans count func lra)
+	  nmzdirs fldmsgs fld msgs fasts scans count func lra pickflds)
       (if (null mew-nmz-indexed-folders)
 	  (mew-nmz-gather-indexed-folder))
       (setq nmzdirs (mew-nmz-flds-to-indexs (or flds '("+*"))))
@@ -661,6 +661,7 @@
 	(if (null fldmsgs)
 	    (message "No message pick.")
 	  (while fldmsgs
+	    (setq pickflds (cons (car (car fldmsgs)) pickflds))
 	    (if (and mew-nmz-use-fast-pick
 		     (mew-nmz-folder-newp (car (car fldmsgs))))
 		(setq fasts (cons (car fldmsgs) fasts))
@@ -668,8 +669,10 @@
 	    (setq fldmsgs (cdr fldmsgs)))
 	  (setq fasts (nreverse fasts))
 	  (setq scans (nreverse scans))
+	  (setq pickflds (nreverse pickflds))
 	  ;;
 	  (mew-summary-switch-to-folder vfld)
+	  (mew-vinfo-set-flds pickflds)
 	  (mew-erase-buffer)
 	  (setq count 1)
 	  (when fasts
@@ -689,10 +692,11 @@
 		(when (mew-nmz-re-search-message (car msgs))
 		  (beginning-of-line)
 		  (when (looking-at
-			 "^\\([^\r]*\\)\\(\r[^\n]*\n\\)")
+			 "^\\([^\r]*\\)\r +\\([^\n]*\n\\)")
 		    (setq lines (cons (list
 				       (match-string 1)
-				       (match-string 2))
+				       (format "\r %s %s"
+				               fld (match-string 2)))
 				      lines))
 		    (setq count (1+ count))))
 		(forward-line 1)
@@ -741,7 +745,7 @@
 	  (when scans
 	    (setq func `(lambda () (when (file-exists-p ,file)
 				     (delete-file ,file))))
-	    (mew-local-retrieve 'vir (list "-i" file) func lra)))))))
+	    (mew-local-retrieve 'vir (list "-i" file) func lra t)))))))
 
 ;;
 ;; Use namazu-mode.
@@ -1188,7 +1192,7 @@
 
 (defun mew-nmz-re-search-message (msg)
   (setq here (point))
-  (if (not (re-search-forward (concat "^.*\r [^ ]+ " msg "[^0-9]") nil t))
+  (if (not (re-search-forward (concat "^.*\r +" msg "[^0-9]") nil t))
       (progn (goto-char here)
 	     nil)
     (beginning-of-line)