From cd5a5cad70d166f21119bdbd1501f76e6964f3bd Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 2 May 2004 00:34:50 +0000 Subject: [PATCH] Synch to No Gnus 200405012224. --- README.T-gnus | 2 +- lisp/ChangeLog | 8 ++++++++ lisp/dgnushack.el | 1 + lisp/gnus-vers.el | 9 ++++----- 4 files changed, 14 insertions(+), 6 deletions(-) diff --git a/README.T-gnus b/README.T-gnus index 0732093..bb8406c 100644 --- a/README.T-gnus +++ b/README.T-gnus @@ -33,5 +33,5 @@ NEWS: * T-gnus 6.17 - this is based on Gnus. - The latest T-gnus is T-gnus 6.17.2 (based on No Gnus 0.2). It + The latest T-gnus is T-gnus 6.17.3 (based on No Gnus 0.3). It requires SEMI 1.14, FLIM 1.14, and APEL 10.0 or later. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e9fd32b..999a6ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-05-02 Steve Youngs + + * dgnushack.el: Autoload `mail-fetch-field' for XEmacs. + +2004-05-01 Lars Magne Ingebrigtsen + + * gnus.el (gnus-version-number): Bump. + 2004-05-01 Lars Magne Ingebrigtsen * gnus.el: No Gnus v0.2 is released. diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 7673f74..27feec4 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -317,6 +317,7 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again. (autoload 'executable-find "executable") (autoload 'font-lock-fontify-buffer "font-lock" nil t) (autoload 'info "info" nil t) + (autoload 'mail-fetch-field "mail-utils") (autoload 'make-annotation "annotations") (autoload 'make-display-table "disp-table") (autoload 'pp "pp") diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index f1a32f5..fad71b7 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -1,6 +1,6 @@ ;;; gnus-vers.el --- Declare gnus version -;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Keiichi Suzuki ;; Katsumi Yamaoka @@ -39,10 +39,10 @@ ;; Product information of this gnus. (product-provide 'gnus-vers (product-define "T-gnus" nil - (list 6 17 2 + (list 6 17 3 (string-to-number gnus-revision-number)))) -(defconst gnus-original-version-number "0.2" +(defconst gnus-original-version-number "0.3" "Version number for this version of Gnus.") (provide 'running-pterodactyl-gnus-0_73-or-later) @@ -81,7 +81,6 @@ If ARG, insert string at point." gnus-original-product-name " v" gnus-original-version-number ")" (if (zerop (string-to-number gnus-revision-number)) "" - (concat " (revision " gnus-revision-number ")")) - )) + (concat " (revision " gnus-revision-number ")")))) ;; gnus-vers.el ends here -- 1.7.10.4