[mew-dist 22570] prefix for mew-summary-jump-message
KOIE Hidetaka ( 鯉江英隆 )
hide at example.com
2002年 12月 11日 (水) 21:06:08 JST
サマリバッファでのjコマンドですが
viつかいのわたしは j 123 RET よりも 123 j とやってしまいがち。
Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.72
diff -u -F^( -r1.72 mew-summary4.el
--- mew-summary4.el 2002/12/10 02:42:03 1.72
+++ mew-summary4.el 2002/12/11 12:04:43
@@ -122,7 +122,9 @@ (defun mew-summary-jump-message (&option
"Jump to a message according to the number which you input.
If 'mew-summary-jump-message-then-display' is non-nil,
the message is then displayed."
- (interactive)
+ (interactive "P")
+ (if (integerp msg) (setq msg (int-to-string msg))
+ (if (not (stringp msg)) (setq msg nil)))
(let ((here (point)))
(unless msg (setq msg (read-string "Message No.: " "")))
(cond
--
鯉江
Mew-dist メーリングリストの案内