* lisp/gnus/gnus-start.el (gnus-before-resume-hook): Add.

(gnus-1): Run it when Gnus is alive.

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 280819701ef55fd7e5693b257e14a757eecab6ca..dfc422479e3b02041032f74c046dfe1e2155eea9 100644 (file)
--- a/doc/misc/gnus.texi
+++ b/doc/misc/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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9d93b28420d34c43872e04058388098607e8835c..2d2d9318bd6d5831282c88ca8418d5264647539f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-06  Sam Steingold  <sds@gnu.org>
+
+       * gnus-start.el (gnus-before-resume-hook): Add.
+       (gnus-1): Run it when Gnus is alive.
+
 2012-12-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gmm-utils.el (gmm-called-interactively-p): Restore as a macro.

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index eaf17d9e5793e437b214b320a5fa1b4351d0ec68..a8b6c5b48161d03cf40bfec1b3d84622d99cea9f 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/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)