[mew-dist 27969] mew-message-next-page

[Naohiro Aota]

青田と申します。

先程のメールはサンプルのファイルサイズが大きすぎたようなので画像データ
を1枚以外とりぞき、 gz 圧縮して添付したものを送り直します。

mew で HTML メールを表示している際に、 window の最下行に画像が表示され
ていると、 mew-message-next-page が過剰にスクロールしてしまいます。

そのような HTML メールのサンプルとして拙作の shimbun モジュールによる記
事を添付します。

どうやら、画像が表示されていても、されていなくても
(move-to-window-line -1) が同じ位置に、つまり画像を表示していれば
window に入らない位置に移動するのが問題のようです。

;; Emacs のバグのような気がしますね…。

とりあえず、私は以下のようにしてスクロールさせているのですが、
(window-end) の振舞いも時々変な気がします。

Index: mew-message.el
===================================================================
RCS file: /cvsmew/mew/mew-message.el,v
retrieving revision 1.31
diff -u -r1.31 mew-message.el
--- mew-message.el	3 Dec 2007 05:18:16 -0000	1.31
+++ mew-message.el	14 Dec 2007 11:08:00 -0000
@@ -59,13 +59,13 @@
 (defun mew-message-next-page (&optional lines)
   "Scroll up this message. Return 'nil' if more pages. Otherwise, return 't'."
   (interactive)
-  (move-to-window-line -1)
   (if (save-excursion
-        (end-of-line)
+	(goto-char (window-end))
         (and (pos-visible-in-window-p) (eobp)))
       ;; Nothing in this page.
       (if (or (null mew-break-pages)
 	      (save-excursion
+		(goto-char (window-end))
 		(save-restriction
 		  (widen) (forward-line) (eobp)))) ;; Real end of buffer?
           (if mew-summary-show-pause
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 245.gz
型:         application/octet-stream
サイズ:     37965 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/20071214/efdb623c/attachment.obj>