[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 メーリングリストの案内