Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 60257:4104a4e7e5c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-summary-exit): Move point after displaying the buffer, so it moves the window's cursor.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 26 Feb 2005 05:33:56 +0000
parents bbe4bd573f0c
children 816703abc637
comparison
equal deleted inserted replaced
60256:62670df9ca97 60257:4104a4e7e5c2
1 ;;; gnus-sum.el --- summary mode commands for Gnus 1 ;;; gnus-sum.el --- summary mode commands for Gnus
2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
3 ;; Free Software Foundation, Inc. 3 ;; Free Software Foundation, Inc.
4 4
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: news 6 ;; Keywords: news
7 7
6678 (gnus-kill-buffer buf))) 6678 (gnus-kill-buffer buf)))
6679 (setq gnus-current-select-method gnus-select-method) 6679 (setq gnus-current-select-method gnus-select-method)
6680 (set-buffer gnus-group-buffer) 6680 (set-buffer gnus-group-buffer)
6681 (if quit-config 6681 (if quit-config
6682 (gnus-handle-ephemeral-exit quit-config) 6682 (gnus-handle-ephemeral-exit quit-config)
6683 (goto-char group-point)
6684 (unless leave-hidden 6683 (unless leave-hidden
6685 (gnus-configure-windows 'group 'force))) 6684 (gnus-configure-windows 'group 'force))
6685 ;; Move point after calling gnus-configure-windows to make sure it
6686 ;; moves the window's point as well.
6687 (goto-char group-point))
6686 ;; Clear the current group name. 6688 ;; Clear the current group name.
6687 (unless quit-config 6689 (unless quit-config
6688 (setq gnus-newsgroup-name nil))))) 6690 (setq gnus-newsgroup-name nil)))))
6689 6691
6690 (defalias 'gnus-summary-quit 'gnus-summary-exit-no-update) 6692 (defalias 'gnus-summary-quit 'gnus-summary-exit-no-update)