diff options
| author | Teodor Zlatanov <tzz@lifelogs.com> | 2010-10-07 03:49:38 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-07 03:49:38 +0000 |
| commit | cbabe91fdce9313ffc3f72e0a828b86580661dac (patch) | |
| tree | b2e1089233cfae029b3f4d5ba5f545044bdecc0e /lisp/gnus/gnus-int.el | |
| parent | 58d1ac6d6d7c7634b3ecb7e0cf3f0c67db319b9b (diff) | |
| download | emacs-cbabe91fdce9313ffc3f72e0a828b86580661dac.tar.gz emacs-cbabe91fdce9313ffc3f72e0a828b86580661dac.tar.bz2 emacs-cbabe91fdce9313ffc3f72e0a828b86580661dac.zip | |
gnus-int.el, gnus-util.el: Gnus hooks for the mark get/set operations.
gnus-sync.el: Update docs to explain state and plans.
auth-source.el: Update docs with TODO items.
Diffstat (limited to 'lisp/gnus/gnus-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 33d020f2a1a..9ed52d8f8ed 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -41,6 +41,16 @@ :group 'gnus-start :type 'hook) +(defcustom gnus-after-set-mark-hook nil + "Hook called just after marks are set in a group." + :group 'gnus-start + :type 'hook) + +(defcustom gnus-before-update-mark-hook nil + "Hook called just before marks are updated in a group." + :group 'gnus-start + :type 'hook) + (defcustom gnus-server-unopen-status nil "The default status if the server is not able to open. If the server is covered by Gnus agent, the possible values are @@ -471,7 +481,8 @@ If FETCH-OLD, retrieve all headers (or some subset thereof) in the group." action (funcall (gnus-get-function gnus-command-method 'request-set-mark) (gnus-group-real-name group) action - (nth 1 gnus-command-method))))) + (nth 1 gnus-command-method)) + (gnus-run-hook-with-args gnus-after-set-mark-hook group action)))) (defun gnus-request-update-mark (group article mark) "Allow the back end to change the mark the user tries to put on an article." @@ -479,6 +490,7 @@ If FETCH-OLD, retrieve all headers (or some subset thereof) in the group." (if (not (gnus-check-backend-function 'request-update-mark (car gnus-command-method))) mark + (gnus-run-hook-with-args gnus-before-update-mark-hook group article mark) (funcall (gnus-get-function gnus-command-method 'request-update-mark) (gnus-group-real-name group) article mark)))) |