Merge branch 'master' into boehm-demers-weiser-gc

[bpt/guile.git] / emacs / patch.el

diff --git a/emacs/patch.el b/emacs/patch.el
index e97c423..2fd20f5 100644 (file)
--- a/emacs/patch.el
+++ b/emacs/patch.el
@@ -1,21 +1,21 @@
 ;;; patch.el --- mail/apply a patch
 
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
 
-;; 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, 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.
+;;;; This library is free software; you can redistribute it and/or
+;;;; modify it under the terms of the GNU Lesser General Public
+;;;; License as published by the Free Software Foundation; either
+;;;; version 3 of the License, or (at your option) any later version.
+;;;; 
+;;;; This library 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
+;;;; Lesser General Public License for more details.
+;;;; 
+;;;; You should have received a copy of the GNU Lesser General Public
+;;;; License along with this library; if not, write to the Free
+;;;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+;;;; 02111-1307 USA
 
 ;;; Author: Thien-Thi Nguyen <ttn@gnu.org>
 ;;; Version: 1
@@ -31,9 +31,9 @@
 ;; On the patch creation side of things, there are various version
 ;; control systems that are happy to write a diff to stdout (and
 ;; numerous Emacs interfaces to them all).  Thus, we provide only a
-;; simple `patch-submit' that composes mail from the current buffer;
+;; simple `patch-send' that composes mail from the current buffer;
 ;; the contents of that buffer are left as an exercise for the patch
-;; creator.  When preparing the mail, `patch-submit' scans the patch
+;; creator.  When preparing the mail, `patch-send' scans the patch
 ;; for standard filename headers and sets up a skeleton change log --
 ;; filling this in is a good way to earn respect from maintainers (hint
 ;; hint).  Type `C-c C-c' to send the mail when you are done.  (See
@@ -45,6 +45,9 @@
 ;;; Code:
 
 (require 'cl)
+(require 'update-changelog)             ; for stitching
+
+;; outgoing
 
 (defvar patch-greeting "hello guile maintainers,\n\n"
   "*String to insert at beginning of patch mail.")
@@ -82,7 +85,7 @@
      files
      "\n")))
 
-(defun patch-submit (buffer subject)
+(defun patch-send (buffer subject)
   (interactive "bBuffer: \nsSubject: ")
   (when (string= "" subject)
     (error "(empty subject)"))
@@ -95,4 +98,9 @@
             (patch-changelog-skeleton) "\n\n\n"
             (make-string 72 ?_) "\n")))
 
+;; incoming
+
+
+  
+
 ;;; patch.el ends here