[gnus git] branch master updated: m0-5-185-g6e78f23 =1= gnus-start.el (gnus-before-resume-hook): Add. (gnus-1): Run it when Gnus is alive.

       via  6e78f2356811a237efe323789441d9c1da9d9bc3 (commit)
      from  a068b020f219ac73a9871a10e77d34593384231a (commit)


- Log -----------------------------------------------------------------
commit 6e78f2356811a237efe323789441d9c1da9d9bc3
Author: Sam Steingold <[email protected]>
Date:   Thu Dec 6 22:29:29 2012 +0000

    gnus-start.el (gnus-before-resume-hook): Add.
      (gnus-1): Run it when Gnus is alive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a3c1a3..e9ad5c2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-06  Sam Steingold  <[email protected]>
+
+	* gnus-start.el (gnus-before-resume-hook): Add.
+	(gnus-1): Run it when Gnus is alive.
+
 2012-12-05  Katsumi Yamaoka  <[email protected]>
 
 	* gmm-utils.el (gmm-called-interactively-p): Restore as a macro.
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 7514e7a..4098bc9 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -395,7 +395,15 @@ This hook is called after Gnus is connected to the NNTP server."
 
 (defcustom gnus-before-startup-hook nil
   "A hook called before startup.
-This hook is called as the first thing when Gnus is started."
+This hook is called as the first thing when Gnus is started.
+See also `gnus-before-resume-hook'."
+  :group 'gnus-start
+  :type 'hook)
+
+(defcustom gnus-before-resume-hook nil
+  "A hook called before resuming Gnus after suspend.
+This hook is called as the first thing when Gnus is resumed after a suspend.
+See also `gnus-before-startup-hook'."
   :group 'gnus-start
   :type 'hook)
 
@@ -749,6 +757,7 @@ prompt the user for the name of an NNTP server to use."
 
   (if (gnus-alive-p)
       (progn
+	(gnus-run-hooks 'gnus-before-resume-hook)
 	(switch-to-buffer gnus-group-buffer)
 	(gnus-group-get-new-news
 	 (and (numberp arg)
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 788373c..2db21e8 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1580,6 +1580,10 @@ times you start Gnus.
 @vindex gnus-before-startup-hook
 A hook called as the first thing when Gnus is started.
 
+@item gnus-before-resume-hook
+@vindex gnus-before-resume-hook
+A hook called as the first thing when Gnus is resumed after a suspend.
+
 @item gnus-startup-hook
 @vindex gnus-startup-hook
 A hook run as the very last thing after starting up Gnus

-----------------------------------------------------------------------
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-start.el |   11 ++++++++++-
 texi/gnus.texi     |    4 ++++
 3 files changed, 19 insertions(+), 1 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