From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Alexander Pohoyda Newsgroups: gmane.emacs.bugs Subject: Re: RMAIL, summary/message focus switching with `h' button Date: Thu, 13 Feb 2003 07:24:18 +0100 (CET) Sender: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: <200302130624.h1D6OIm1000400@oak.pohoyda.family> References: <200302122113.h1CLDEVI000599@oak.pohoyda.family> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1045117947 3752 80.91.224.249 (13 Feb 2003 06:32:27 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 13 Feb 2003 06:32:27 +0000 (UTC) Cc: bug-gnu-emacs@gnu.org Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18jCtR-0000ti-00 for ; Thu, 13 Feb 2003 07:30:45 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18jCuX-0004LO-04 for gnu-bug-gnu-emacs@m.gmane.org; Thu, 13 Feb 2003 01:31:53 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 18jCuR-0004LH-00 for bug-gnu-emacs@gnu.org; Thu, 13 Feb 2003 01:31:47 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 18jCuO-0004IP-00 for bug-gnu-emacs@gnu.org; Thu, 13 Feb 2003 01:31:46 -0500 Original-Received: from imap.gmx.net ([213.165.64.20] helo=mail.gmx.net) by monty-python.gnu.org with smtp (Exim 4.10.13) id 18jCuN-000497-00 for bug-gnu-emacs@gnu.org; Thu, 13 Feb 2003 01:31:44 -0500 Original-Received: (qmail 30538 invoked by uid 0); 13 Feb 2003 06:24:17 -0000 Original-Received: from p508BE1BB.dip.t-dialin.net (HELO oak.pohoyda.family) (80.139.225.187) by mail.gmx.net (mp012-rz3) with SMTP; 13 Feb 2003 06:24:17 -0000 Original-Received: from oak.pohoyda.family (oak.pohoyda.family [127.0.0.1]) by oak.pohoyda.family (8.12.6/8.12.6) with ESMTP id h1D6OMg0000403; Thu, 13 Feb 2003 07:24:23 +0100 (CET) (envelope-from apog@oak.pohoyda.family) Original-Received: (from apog@localhost) by oak.pohoyda.family (8.12.6/8.12.6/Submit) id h1D6OIm1000400; Thu, 13 Feb 2003 07:24:18 +0100 (CET) Original-To: Thien-Thi Nguyen In-reply-to: (message from Thien-Thi Nguyen on 12 Feb 2003 19:01:54 -0500) X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:4448 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:4448 > 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