Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5b4d7e52
Commit
5b4d7e52
authored
Dec 06, 2012
by
Sam Steingold
Browse files
* lisp/gnus/gnus-start.el (gnus-before-resume-hook): Add.
(gnus-1): Run it when Gnus is alive.
parent
93852cb0
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
19 additions
and
1 deletion
+19
-1
doc/misc/gnus.texi
doc/misc/gnus.texi
+4
-0
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/gnus-start.el
lisp/gnus/gnus-start.el
+10
-1
No files found.
doc/misc/gnus.texi
View file @
5b4d7e52
...
...
@@ -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
lisp/gnus/ChangeLog
View file @
5b4d7e52
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.
...
...
lisp/gnus/gnus-start.el
View file @
5b4d7e52
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment