mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

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

Browse Source 
(gnus-1): Run it when Gnus is alive.
This commit is contained in:
Sam Steingold 2012-12-06 13:30:38 -05:00
parent 93852cb0cf
commit 5b4d7e523f
3 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/misc/gnus.texi
View File

@ -1580,6 +1580,10 @@ times you start Gnus.
@vindex gnus-before-startup-hook @vindex gnus-before-startup-hook
A hook called as the first thing when Gnus is started. 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 @item gnus-startup-hook
@vindex gnus-startup-hook @vindex gnus-startup-hook
A hook run as the very last thing after starting up Gnus A hook run as the very last thing after starting up Gnus

5
lisp/gnus/ChangeLog
View File

@ -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> 2012-12-06 Katsumi Yamaoka <yamaoka@jpl.org>
* gmm-utils.el (gmm-called-interactively-p): Restore as a macro. * gmm-utils.el (gmm-called-interactively-p): Restore as a macro.

11
lisp/gnus/gnus-start.el
View File

@ -395,7 +395,15 @@ This hook is called after Gnus is connected to the NNTP server."
(defcustom gnus-before-startup-hook nil (defcustom gnus-before-startup-hook nil
"A hook called before startup. "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 :group 'gnus-start
:type 'hook) :type 'hook)
@ -749,6 +757,7 @@ prompt the user for the name of an NNTP server to use."
(if (gnus-alive-p) (if (gnus-alive-p)
(progn (progn
(gnus-run-hooks 'gnus-before-resume-hook)
(switch-to-buffer gnus-group-buffer) (switch-to-buffer gnus-group-buffer)
(gnus-group-get-new-news (gnus-group-get-new-news
(and (numberp arg) (and (numberp arg)