[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111203: * lisp/gnus/gnus.el (gnus-ot
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111203: * lisp/gnus/gnus.el (gnus-other-frame-resume-function): Add user option. |
Date: |
Wed, 12 Dec 2012 09:46:58 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111203
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Wed 2012-12-12 09:46:58 -0500
message:
* lisp/gnus/gnus.el (gnus-other-frame-resume-function): Add user option.
(gnus-other-frame): Call `gnus-other-frame-resume-function' on resume.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2012-12-06 18:30:38 +0000
+++ b/lisp/gnus/ChangeLog 2012-12-12 14:46:58 +0000
@@ -1,3 +1,8 @@
+2012-12-12 Sam Steingold <address@hidden>
+
+ * gnus.el (gnus-other-frame-resume-function): Add user option.
+ (gnus-other-frame): Call `gnus-other-frame-resume-function' on resume.
+
2012-12-06 Sam Steingold <address@hidden>
* gnus-start.el (gnus-before-resume-hook): Add.
=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2012-12-05 18:13:38 +0000
+++ b/lisp/gnus/gnus.el 2012-12-12 14:46:58 +0000
@@ -2495,7 +2495,15 @@
:type 'boolean)
(defcustom gnus-other-frame-function 'gnus
- "Function called by the command `gnus-other-frame'."
+ "Function called by the command `gnus-other-frame' when starting Gnus."
+ :group 'gnus-start
+ :type '(choice (function-item gnus)
+ (function-item gnus-no-server)
+ (function-item gnus-slave)
+ (function-item gnus-slave-no-server)))
+
+(defcustom gnus-other-frame-resume-function 'gnus-group-get-new-news
+ "Function called by the command `gnus-other-frame' when resuming Gnus."
:group 'gnus-start
:type '(choice (function-item gnus)
(function-item gnus-no-server)
@@ -4361,8 +4369,9 @@
"Pop up a frame to read news.
This will call one of the Gnus commands which is specified by the user
option `gnus-other-frame-function' (default `gnus') with the argument
-ARG if Gnus is not running, otherwise just pop up a Gnus frame. The
-optional second argument DISPLAY should be a standard display string
+ARG if Gnus is not running, otherwise pop up a Gnus frame and run the
+command specified by `gnus-other-frame-resume-function'.
+The optional second argument DISPLAY should be a standard display string
such as \"unix:0\" to specify where to pop up a frame. If DISPLAY is
omitted or the function `make-frame-on-display' is not available, the
current display is used."
@@ -4394,7 +4403,8 @@
(make-frame-on-display display gnus-other-frame-parameters)
(make-frame gnus-other-frame-parameters))))
(if alive
- (switch-to-buffer gnus-group-buffer)
+ (progn (switch-to-buffer gnus-group-buffer)
+ (funcall gnus-other-frame-resume-function arg))
(funcall gnus-other-frame-function arg)
(add-hook 'gnus-exit-gnus-hook 'gnus-delete-gnus-frame)
;; One might argue that `gnus-delete-gnus-frame' should not be called
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111203: * lisp/gnus/gnus.el (gnus-other-frame-resume-function): Add user option.,
Sam Steingold <=