[Mew-dist 05501] cache-save (Re: 1.93b46)

Takashi P.KATOH p-katoh at example.com
1998年 7月 14日 (火) 16:54:23 JST


b33 から b46 へ大躍進 :-)

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 05476] 1.93b46
> ftp.mew.org:/pub/Mew/beta に mew-1.93b46.tar.gz を置きました。

Summary buffer で narrow-to-region したまま mule を終了させ
たりすると(?) .mew-cache が悲しくなってしまうので、widen し
てから save した方がいいと思います。
# save-excursion は不要かしらん?

-- 
かとぺ / 加藤 貴司
C-[ Shift-: って押しにくい (;_;)

--- mew/mew-scan.el	Wed Jun 10 00:33:23 1998
+++ mew-scan.el	Tue Jul 14 16:43:46 1998
@@ -382,11 +382,13 @@
 (defun mew-summary-folder-cache-save ()
   (let ((cache (mew-expand-folder (buffer-name) mew-summary-cache-file)))
     (if (file-writable-p cache)
-	(mew-frwlet mew-cs-noconv mew-cs-scan
-          (write-region (point-min) (point-max) cache nil 'no-msg)
-          (setq mew-summary-buffer-folder-cache-time
-                (nth 5 (file-attributes cache)))
-          ))
+	(save-excursion
+	  (widen)
+	  (mew-frwlet mew-cs-noconv mew-cs-scan
+		      (write-region (point-min) (point-max) cache nil 'no-msg)
+		      (setq mew-summary-buffer-folder-cache-time
+			    (nth 5 (file-attributes cache)))
+		      )))
     ))
 
 (provide 'mew-scan)



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