Commit 5b4d7e52 authored by Sam Steingold's avatar Sam Steingold

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

(gnus-1): Run it when Gnus is alive.
parent 93852cb0
......@@ -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
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.
......
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment