Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!virgil!ccgwy!ccgwy!kuwada
From: kuwada@axion-gw.ee.uec.ac.jp (Masayuki Kuwada)
Subject: Re: Q: VM-5.32
In-Reply-To: sasada@rook.fuis.fukui-u.ac.jp's message of 12 Mar 93 14:13:50 GMT
Message-ID: <KUWADA.93Mar13195818@axion-gw.ee.uec.ac.jp>
Sender: news@ccgwy.cc.uec.ac.jp (Internet news)
Nntp-Posting-Host: axion-gw.ee.uec.ac.jp
Organization: The University of Electro-Communications, Tokyo, Japan.
References: <SASADA.93Mar12040003@rook.fuis.fukui-u.ac.jp>
	<KUBO.93Mar12104242@sp2g.v785.stanley.co.jp>
	<SASADA.93Mar12231350@rook.fuis.fukui-u.ac.jp>
Date: Sat, 13 Mar 1993 10:58:18 GMT
Lines: 78
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3582
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3582&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

>>>>> On 12 Mar 93 14:13:50 GMT,
>>>>> sasada@rook.fuis.fukui-u.ac.jp (Kunihiro Sasada) said:

sasada> $B:{ED!wJ!0fBg3X$G$9!#(B

  $B7,ED!wEEDLBg$G$9!%(B

sasada> In article <KUWADA.93Mar12151954@electra.ee.uec.ac.jp>, 
sasada> kuwada@electra.ee.uec.ac.jp (Masayuki Kuwada) writes:

sasada> $B$N%Q%C%A$G!"D>$j$^$7$?!#7,ED$5$s!"$I$&$bM-$jFq$&$4$6$$$^$7$?!#(B_o_
sasada> $B!t(B $B<B$O<+J,$G$b!"(Bvm-scroll-forward $B$NJU$r?'!9$HD4$Y$F$$$?$N$G$9$,!"(B
sasada> $B!t$^$5$+!"#1$D%3%a%s%H%"%&%H$9$k$@$1$GNI$$$H$O;W$o$J$+$C$?!#(B

  $B$I$&$$$?$7$^$7$F!%$"$N%Q%C%A$h$j$O(B vm $B$N:n<T$N(B Kyle Jones 
$B$5$s$bG'$a$F$$$k2<5-$N%Q%C%A$N$[$&$,$h$$$G$7$g$&!%(B

$B!t(B $B:FEY(B VM $B4X78$N%Q%C%A$rD4$Y$F$$$F8+$D$1$^$7$?!%(B

From: Jamie Zawinski <jwz@lucid.com>
Sender: bug-vm-request
To: Bug-VM@uunet.UU.NET
Subject: 5.32 vm-scroll-forward from summary buffer fix
Date: Sat, 7 Mar 92 16:48:10 PST

vm-howl-if-eom was not correctly encapsulating the call to scroll-up when
the selected window was not the message window.  Here's the fix:

(defun vm-howl-if-eom ()
  (let ((vmp vm-message-pointer))
    (vm-within-current-message-buffer
     (let ((w (get-buffer-window (current-buffer)))
   (vm-message-pointer vmp))
       (and w
    (save-excursion
      (save-window-excursion
(condition-case ()
    (let ((next-screen-context-lines 0))
      (select-window w)
      (save-excursion
(save-window-excursion
  (scroll-up nil)))
      nil)
  (error t))))
    (= (vm-text-end-of (car vm-message-pointer)) (point-max))
    (vm-emit-eom-blurb))))))


sasada>  $B$=$3$G!"?^$K>h$C$F$^$?<ALd$J$N$G$9$,!"(BVM $B$G$O!"%5%^%j%P%C%U%!$G%j%W%i%$(B
sasada> $B$N(B "R" $BEy$r2!$9$H!"$=$N$^$^>.$5$$%5%^%j%P%C%U%!$N=j$,%a%$%k%P%C%U%!$K(B
sasada> $B$J$C$A$c$$$^$9$,!"$3$l$r(B GNUS $B$NMM$KBg$-$J%P%C%U%!$NJ}!"$b$7$/$O%a%$%k(B
sasada> $B%P%C%U%!$N$_$K!"$J$kMM$K$9$k$K$O$I$&$7$?$iNI$$$G$7$g$&$+!)(B
sasada> $B!t(B $B$$$D$b$O!"0l!9%a%$%k%P%C%U%!$NJ}$K0\$C$F$+$i!"(B"R"$B$r2!$7$F$$$^$9!#(B

  $B$3$s$J$N$G$I$&$G$7$g$&$+!%(B("m" $B$X$NBP=h$b4^$_$^$9!%(B)

diff -u vm-reply.el.ORG vm-reply.el
--- vm-reply.el.ORGSat May  2 12:07:32 1992
+++ vm-reply.elSat Mar 13 19:41:41 1993
@@ -115,6 +115,7 @@
     vm-message-pointer message-pointer
     vm-reply-list mlist
     default-directory dir)
+      (delete-other-windows) ; added by M.Kuwada on 12-Mar-93
       (if include-text
   (save-excursion
     (goto-char (point-min))
@@ -449,6 +450,7 @@
   (vm-check-for-killed-summary)
   (let ((mail-buffer (if (memq major-mode '(vm-mode vm-virtual-mode))
  (current-buffer))))
+    (delete-other-windows) ; added by M.Kuwada on 12-Mar-93
     (vm-mail-internal)
     (if (null mail-buffer)
 ()
--
                     $BEE5$DL?.Bg3X!!EE;R9)3X2J!!7,ED@59T(B
                          kuwada@soliton.ee.uec.ac.jp
