* message-utils.el: Adopt the file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf217f6..0c1aad7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,6 @@
 2002-02-15  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       
+       * message-utils.el: Adopt the file.
 
        * message-utils.el: New file.
        From Holger Schauer <Holger.Schauer@gmx.de>

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 9662dd9..77cbbc9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -298,7 +298,7 @@ higest-scored article), `unseen' (place point on the subject line of
 the first unseen article), 'unseen-or-unread' (place point on the subject
 line of the first unseen article or, if all article have been seen, on the
 subject line of the first unread article), or a function to be called to
-place point on some subject line.."
+place point on some subject line."
   :group 'gnus-group-select
   :type '(choice (const best)
                 (const unread)

diff --git a/lisp/message-utils.el b/lisp/message-utils.el
index 04fea3e..453ef42 100644 (file)
--- a/lisp/message-utils.el
+++ b/lisp/message-utils.el
@@ -1,26 +1,28 @@
-;;; -*- Mode: Emacs-Lisp -*- 
-;;; message-utils.el -- Utils for message-mode
-;;; Revision: 0.8
-;;; $Id: message-utils.el,v 1.17 2000/06/19 10:29:25 schauer Exp $
+;;; message-utils.el -- utils for message-mode
+
+;; Copyright (C) 2002 Free Software Foundation, Inc.
 
 ;; Author: Holger Schauer <Holger.Schauer@gmx.de>
 ;; Keywords: utils message 
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Summary:
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
 
 ;; This file contains some small additions to message mode:
 ;;    * inserting files in a message and explicit marking it 
@@ -31,10 +33,11 @@
 ;;    * a function for cross-post and followup-to messages
 ;;    * replace To: header with contents of Cc: or Bcc: header.
 ;;
-;; Where to get this file: 
+
+;; This file is adopt from the link below when the revision is 0.8.
 ;;  http://www.coling.uni-freiburg.de/~schauer/resources/emacs/message-utils.el.gz
 
-;;; Installation:
+;;; Installation: (TODO: merge into message.el)
 
 ;; .. is easy as in most cases. Add this file to where your
 ;; Emacs can find it and add
@@ -70,29 +73,10 @@
 ;;  (easy-menu-add-item nil '("Field") 
 ;;   [ "X-No-Archive:" message-add-archive-header t ]))
 
-
+;;; Code:
 
 (require 'message)
 
-;;; **************
-;;; Preliminaries
-
-;; Incantations to make custom stuff work without customize, e.g. on
-;; XEmacs 19.14 or GNU Emacs 19.34. Stolen from htmlize.el by Hrovje Niksic.
-(eval-and-compile
-  (condition-case ()
-      (require 'custom)
-    (error nil))
-  (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
-      nil ;; We've got what we needed
-    ;; We have the old custom-library, hack around it!
-    (defmacro defgroup (&rest args)
-      nil)
-    (defmacro defcustom (var value doc &rest args) 
-      (` (defvar (, var) (, value) (, doc))))
-    (defmacro defface (face value doc &rest stuff)
-      `(make-face ,face))))
-
 ;;; **************
 ;;; Inserting and marking ...
 
@@ -388,3 +372,4 @@ With prefix-argument just set Follow-Up, don't cross-post."
 ;;; provide ourself
 (provide 'message-utils)
 
+;;; message-utils.el ends here