[alexander.pohoyda@gmx.net: Re: RMAIL, summary/message focus switching with `h' button]

[alexander.pohoyda@gmx.net: Re: RMAIL, summary/message focus switching with `h' button]

[Richard Stallman]

I have doubts about whether this change is desirable, so please don't
install it.

------- Start of forwarded message -------
Date: Thu, 13 Feb 2003 07:24:18 +0100 (CET)
From: Alexander Pohoyda <alexander.pohoyda@gmx.net>
To: Thien-Thi Nguyen <ttn@glug.org>
In-reply-to: <jk65rpjbf1.fsf@glug.org> (message from Thien-Thi Nguyen on 12
	Feb 2003 19:01:54 -0500)
cc: bug-gnu-emacs@gnu.org
Subject: Re: RMAIL, summary/message focus switching with `h' button
Sender: bug-gnu-emacs-bounces+rms=gnu.org@gnu.org

> you can tighten the binding construct to something like:
> 
>    (let ((was-in-summary (eq major-mode 'rmail-summary-mode)))
>       ...)

Indeed. Thanks a lot! Here comes a new version:

- --- rmailsum.el.orig    Sun Jan  5 23:01:28 2003
+++ rmailsum.el Sun Jan  5 23:40:13 2003
@@ -66,7 +66,10 @@
 (defun rmail-summary ()
   "Display a summary of all messages, one line per message."
   (interactive)
- -  (rmail-new-summary "All" '(rmail-summary) nil))
+  (let ((was-in-summary) (eq major-mode 'rmail-summary-mode))
+    (rmail-new-summary "All" '(rmail-summary) nil)
+    ;; Swap the focus.
+    (if was-in-summary (other-window 1))))
 
 ;;;###autoload
 (defun rmail-summary-by-labels (labels)
- ---

- -- 
Alexander Pohoyda
<alexander.pohoyda@gmx.net>


_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs
------- End of forwarded message -------