[mew-dist 26792] mew-summary-show-pause

KOIE Hidetaka ( 鯉江英隆 ) hide at example.com
2006年 2月 6日 (月) 13:27:56 JST


メイルを SPC で読みすすむときに
読みおわったらすぐに refile/delete するのですが
勢いあまって SPC を叩きすぎ次のメイルに移動してしまうことが多いです。
これを嫌っていままで
(setq mew-summary-show-direction 'stop) を設定していたのですが、
いちいちnを押すのも面倒なので、
mew-summary-show-pause が non-nil のときは
SPC を二回叩かないと次に移らないようにする機能を追加してみました。

Index: mew-message.el
===================================================================
RCS file: /cvsmew/mew/mew-message.el,v
retrieving revision 1.23
diff -u -F^(def -F^[A-Z_a-z][0-9A_Z_a-z]*( -r1.23 mew-message.el
--- mew-message.el	26 May 2005 06:15:48 -0000	1.23
+++ mew-message.el	6 Feb 2006 04:16:12 -0000
@@ -48,6 +48,7 @@ (defun mew-message-mode ()
   (setq page-delimiter mew-page-delimiter)
   (mew-message-setup-decoration)
   (mew-message-toolbar-update)
+  (set (make-local-variable 'mew-real-end-of-buffer) nil)
   (run-hooks 'mew-message-mode-hook))
 
 (defun mew-message-mode-line (fld msg)
@@ -68,7 +69,11 @@ (defun mew-message-next-page (&optional 
 	      (save-excursion
 		(save-restriction
 		  (widen) (forward-line) (eobp)))) ;; Real end of buffer?
-	  t
+          (if mew-summary-show-pause
+              (prog1 mew-real-end-of-buffer
+                (setq mew-real-end-of-buffer t)
+                (message "End of buffer"))
+            t)
 	;; Go to the next page.
 	(mew-message-narrow-to-page 1)
 	nil)
Index: mew-summary2.el
===================================================================
RCS file: /cvsmew/mew/mew-summary2.el,v
retrieving revision 1.60
diff -u -F^(def -F^[A-Z_a-z][0-9A_Z_a-z]*( -r1.60 mew-summary2.el
--- mew-summary2.el	23 May 2005 00:58:49 -0000	1.60
+++ mew-summary2.el	6 Feb 2006 04:16:12 -0000
@@ -132,6 +132,7 @@ (defvar mew-message-last-buffer nil)
 (defsubst mew-summary-display-postscript (&optional no-hook)
   ;; message buffer
   (unless no-hook (run-hooks 'mew-message-hook))
+  (setq mew-real-end-of-buffer nil)
   (setq mew-message-last-buffer (current-buffer))
   (mew-message-set-end-of)
   (set-buffer-modified-p nil))
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.281
diff -u -F^(def -F^[A-Z_a-z][0-9A_Z_a-z]*( -r1.281 mew-vars.el
--- mew-vars.el	1 Feb 2006 12:29:18 -0000	1.281
+++ mew-vars.el	6 Feb 2006 04:16:12 -0000
@@ -1827,6 +1827,12 @@ (defcustom mew-summary-mark-direction 'n
   :group 'mew-summary
   :type '(choice (const next) (const up) (const down) (const stop)))
 
+(defcustom mew-summary-show-pause nil
+  "*Pause on going to next message if *non-nil*.
+See also 'mew-summary-show-direction' and 'mew-summary-mark-direction'."
+  :group 'mew-summary
+  :type 'boolean)
+
 (defcustom mew-summary-mark-duplicated-skip 'first
   "*This value decides which duplicated message should not be
 marked with 'mew-mark-duplicated' when 'mew-summary-mark-duplicated'

--
鯉江英隆 <hide at example.com>



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