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