Re: gnus-carpal-mode and mouse-autoselect-window

[Reiner Steib]

On Fri, Feb 18 2005, Klaus Zeitler wrote:

> gnus-carpal-mode has a little annoyance when mouse-autoselect-window is set.
> Whenever I switch to the carpal window to press one of the buttons, emacs
> automatically scrolls the carpal buffer to the end. This happens only when I
> set mouse-autoselect-window to t.
> I've added
>  (goto-char (point-min))
> as the last line to gnus-carpal-setup-buffer and now it works fine.

I don't use gnus-carpal-mode normally.  I couldn't see any difference
in the behavior with or without this patch[1]:

--8<---------------cut here---------------start------------->8---
--- gnus-salt.el        19 Sep 2004 21:20:09 +0200      7.6
+++ gnus-salt.el        21 Feb 2005 15:55:26 +0100      
@@ -1042,7 +1042,7 @@
          (let ((fill-column (- (window-width) 2)))
            (fill-region (point-min) (point-max)))
          (set-window-point (get-buffer-window (current-buffer))
-                           (point-min)))))))
+                           (goto-char (point-min))))))))
 
 (defun gnus-carpal-select ()
   "Select the button under point."
--8<---------------cut here---------------end--------------->8---

Or did you mean to add (goto-char (point-min)) _after_ the `if'
clause?

But I saw some strange display problem: After scrolling down in the
Carpal Summary buffer with <mouse-5>, I get...

--8<---------------cut here---------------start------------->8---
mark read tick clear expirable move scroll next-unread prev-unread first best
article headers uudecode enter-digest fetch-parent mail move copy respool
article headers uudecode enter-digest fetch-parent mail move copy respool
--8<---------------cut here---------------end--------------->8---

... (note the duplicated line) instead of...

--8<---------------cut here---------------start------------->8---
mark read tick clear expirable move scroll next-unread prev-unread first best
article headers uudecode enter-digest fetch-parent mail move copy respool
threads lower kill post post local mail followup reply cancel misc exit fed-up
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.

[1] With...
    (setq mouse-autoselect-window t gnus-carpal t)
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/