emacs-diffs
[Top][All Lists]
Advanced

[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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]