[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111131: * lisp/gnus/gnus-start.el (g
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111131: * lisp/gnus/gnus-start.el (gnus-before-resume-hook): Add. |
Date: |
Thu, 06 Dec 2012 13:30:38 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111131
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Thu 2012-12-06 13:30:38 -0500
message:
* lisp/gnus/gnus-start.el (gnus-before-resume-hook): Add.
(gnus-1): Run it when Gnus is alive.
modified:
doc/misc/gnus.texi
lisp/gnus/ChangeLog
lisp/gnus/gnus-start.el
=== modified file 'doc/misc/gnus.texi'
--- a/doc/misc/gnus.texi 2012-12-06 06:17:10 +0000
+++ b/doc/misc/gnus.texi 2012-12-06 18:30:38 +0000
@@ -1580,6 +1580,10 @@
@vindex gnus-before-startup-hook
A hook called as the first thing when Gnus is started.
address@hidden gnus-before-resume-hook
address@hidden 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
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2012-12-06 04:28:00 +0000
+++ b/lisp/gnus/ChangeLog 2012-12-06 18:30:38 +0000
@@ -1,3 +1,8 @@
+2012-12-06 Sam Steingold <address@hidden>
+
+ * gnus-start.el (gnus-before-resume-hook): Add.
+ (gnus-1): Run it when Gnus is alive.
+
2012-12-06 Katsumi Yamaoka <address@hidden>
* gmm-utils.el (gmm-called-interactively-p): Restore as a macro.
=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el 2012-10-23 15:06:07 +0000
+++ b/lisp/gnus/gnus-start.el 2012-12-06 18:30:38 +0000
@@ -395,7 +395,15 @@
(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 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111131: * lisp/gnus/gnus-start.el (gnus-before-resume-hook): Add.,
Sam Steingold <=