[Mew-dist 13660] patch to use range

[SAKAI Kiyotaka]

遅くなりまして済いません、Mew から range の指定をできるようにするため
のパッチです。

主に、mew-1.94.2 で使っていたコードを取り込んでいます。
-- 
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
Index: mew-minibuf.el
===================================================================
RCS file: /home/ksakai/cvsroot/mew-1.95b47/mew-minibuf.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-minibuf.el
--- mew-minibuf.el	2000/07/17 00:32:40	1.1.1.1
+++ mew-minibuf.el	2000/07/17 09:13:00
@@ -190,20 +190,21 @@
 	(setq range default))
     (cond
      ;; range is other than "update"
-     ((string= range "all")
-      (setq ret mew-range-all))
+     ((not (string= range "update"))
+      (setq ret (list range 'erase))) ;; non-update, erase it
      (t
       (save-excursion
 	(set-buffer folder)
 	(goto-char (point-max))
 	(if (bobp)
-	    (setq ret mew-range-all) ;; buffer is empty.
+	    (list "all" 'update) ;; buffer is empty.
 	  (forward-line -1)
 	  (mew-summary-goto-message)
 	  (setq ret
-		(concat (int-to-string
-			 (1+ (string-to-int (mew-summary-message-number))))
-			"-"))))))
+		(list
+		 (concat (int-to-string
+			  (1+ (string-to-int (mew-summary-message-number))))
+			 "-")))))))
     (mew-decode-syntax-delete)
     ret))
 
Index: mew-scan.el
===================================================================
RCS file: /home/ksakai/cvsroot/mew-1.95b47/mew-scan.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-scan.el
--- mew-scan.el	2000/07/17 00:32:40	1.1.1.1
+++ mew-scan.el	2000/07/17 09:20:20
@@ -182,7 +182,7 @@
 	 (or arg (goto-char (point-max)))
        (setq range (mew-input-range folder alist askp))
        (or arg (goto-char (point-max)))
-       (if (string= range mew-range-all)
+       (if (equal (car range) "all")
 	   (setq lines (mew-summary-mark-collect3 mew-mark-review)))
        (mew-summary-scan-body 'mew-summary-mode
 			      folder
@@ -211,7 +211,7 @@
 	  (setq mew-summary-buffer-direction 'down)
 	  (mew-decode-syntax-delete)
 	  (message "Listing %s ..." folder)
-	  (if (or (string= range mew-range-all)
+	  (if (or (equal 'erase (car (cdr range)))
 		  (eq mode 'mew-virtual-mode))
 	      (mew-erase-buffer))
 	  (setq mew-summary-buffer-start-point (point))
@@ -226,7 +226,7 @@
 	   read mew-cs-pick mew-cs-pick
 	   (setq mew-summary-buffer-process
 		 (start-process (format "mew-process-<%s>" bnm)
-				buf mew-prog-mewls bnm range)))
+				buf mew-prog-mewls bnm (car range))))
 	  (mew-set-process-cs mew-summary-buffer-process read mew-cs-dummy)
 	  (set-process-filter mew-summary-buffer-process
 			      'mew-summary-scan-filter)
Index: mew-summary.el
===================================================================
RCS file: /home/ksakai/cvsroot/mew-1.95b47/mew-summary.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-summary.el
--- mew-summary.el	2000/07/17 00:32:40	1.1.1.1
+++ mew-summary.el	2000/07/17 09:22:38
@@ -1400,7 +1400,7 @@
          (mew-erase-buffer) ;; for update
          (mew-summary-scan-body 'mew-summary-mode
                                 folder mew-cs-scan
-                                mew-range-all nil nil
+                                (list "all") nil nil
                                 lines))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;