[Mew-dist 1623] mew-summary-ls
SAKAI Kiyotaka
ksakai at example.com
1997年 8月 25日 (月) 14:57:42 JST
summary mode で s (mew-summary-ls) を実行したときは、point-max に 飛ん
でから range を聞かれますが、これだと間違って s に触れたときに C-g で
cancel しても point-max に飛んでしまって嬉しくないので、以下のパッチの
ように変更したらどうでしょうか。
--
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.1
diff -u -r1.1 mew-scan.el
--- mew-scan.el 1997/08/25 05:52:03 1.1
+++ mew-scan.el 1997/08/25 05:53:35
@@ -45,18 +45,20 @@
(let* ((folder (buffer-name)))
(mew-summary-folder-cache-manage folder)
(mew-mark-clean-up)
- (goto-char (point-max))
(if (not (mew-folder-member folder mew-clean-up-buffers))
(setq mew-clean-up-buffers (cons folder mew-clean-up-buffers)))
(if (or (interactive-p)
(mew-folder-newsp folder)
(and mew-summary-cache-use
(mew-summary-folder-dir-newp)))
- (mew-summary-scan-body mew-prog-imls
- 'mew-summary-mode
- folder
- mew-cs-scan
- (mew-input-range folder)))
+ (let ((range (mew-input-range folder)))
+ (goto-char (point-max))
+ (mew-summary-scan-body mew-prog-imls
+ 'mew-summary-mode
+ folder
+ mew-cs-scan
+ range
+ )))
))
;;
Mew-dist メーリングリストの案内