2005-10-29 Sat Jari Aalto <jari dot aalto A T cante dot net>

	* gnus-sum.el (gnus-article-sort-by-date-reverse): New function.

2005-10-29  Jari Aalto  <jari aalto A T cante net>

	* score-mode.el (gnus-score-edit-done-hook): Introduce variable.
	Used in gnus-score.el.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f80f61..e2e4783 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2005-10-29 Sat  Jari Aalto  <jari dot aalto A T cante dot net>
+
+       * gnus-sum.el (gnus-article-sort-by-date-reverse): New function.
+
+2005-10-29  Jari Aalto  <jari aalto A T cante net>
+
+       * score-mode.el (gnus-score-edit-done-hook): Introduce variable.
+       Used in gnus-score.el.
+
 2005-10-28  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * mm-util.el (mm-codepage-setup): Remove bogus alias test.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 50f3253..7f41910 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4630,6 +4630,10 @@ using some other form will lead to serious barfage."
    (gnus-date-get-time (mail-header-date h1))
    (gnus-date-get-time (mail-header-date h2))))
 
+(defsubst gnus-article-sort-by-date-reverse (h1 h2)
+  "Sort articles in reverse order by root article date."
+  (gnus-article-sort-by-date h2 h1))
+
 (defun gnus-thread-sort-by-date (h1 h2)
   "Sort threads by root article date."
   (gnus-article-sort-by-date

diff --git a/lisp/score-mode.el b/lisp/score-mode.el
index add14ea..8e5017c 100644 (file)
--- a/lisp/score-mode.el
+++ b/lisp/score-mode.el
@@ -31,6 +31,9 @@
 (require 'mm-util)                     ; for mm-universal-coding-system
 (require 'gnus-util)                   ; for gnus-pp, gnus-run-mode-hooks
 
+(defvar gnus-score-edit-done-hook nil
+  "*Hook run at the end of closing the score buffer.")
+
 (defvar gnus-score-mode-hook nil
   "*Hook run in score mode buffers.")