[gnus git] branch master updated: m0-5-188-ga29f4d3 =1= gnus.el (gnus-other-frame-resume-function): Add user option. (gnus-other-frame): Call `gnus-other-frame-resume-function' on resume.

       via  a29f4d39f75289d388f3391d24c82cb4926a8248 (commit)
      from  f682b8e31d8a1d53c5b65772af1dd280d250f5ec (commit)


- Log -----------------------------------------------------------------
commit a29f4d39f75289d388f3391d24c82cb4926a8248
Author: Sam Steingold <[email protected]>
Date:   Wed Dec 12 22:31:27 2012 +0000

    gnus.el (gnus-other-frame-resume-function): Add user option.
     (gnus-other-frame): Call `gnus-other-frame-resume-function' on resume.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a70bdc..d2f5d01 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,11 @@
 	* gnus-art.el (gnus-article-browse-html-parts): Use <div align="left">
 	instead of <pre> to align message header.
 
+2012-12-12  Sam Steingold  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* gnus-start.el (gnus-before-resume-hook): Add.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 7de6e83..618eb28 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2495,7 +2495,16 @@ Disabling the agent may result in noticeable loss of performance."
   :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."
+  :version "24.4"
   :group 'gnus-start
   :type '(choice (function-item gnus)
 		 (function-item gnus-no-server)
@@ -4362,8 +4371,9 @@ Used for `gnus-exit-gnus-hook' in `gnus-other-frame'."
   "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."
@@ -4395,7 +4405,8 @@ current display is used."
 		 (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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/gnus.el   |   19 +++++++++++++++----
 2 files changed, 20 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project