@@ -1,21 +1,3 @@

-#+(version= 7 0)

-(sys:defpatch "imap" 1

-  "v1: fetch-letter-sequence support."

-  :type :system

-  :post-loadable t)

-

-#+(version= 8 0)

-(sys:defpatch "imap" 1

-  "v1: fetch-letter-sequence support."

-  :type :system

-  :post-loadable t)

-

-#+(version= 8 1)

-(sys:defpatch "imap" 1

-  "v1: Add ssl/tls support for both imap/pop connections."

-  :type :system

-  :post-loadable t)

-

 ;; -*- mode: common-lisp; package: net.post-office -*-

 ;;

 ;; imap.cl

@@ -34,8 +16,24 @@

 ;; 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.

-;;

-;; $Id: imap.cl,v 1.32 2009/03/25 22:46:02 layer Exp $

+

+#+(version= 7 0)

+(sys:defpatch "imap" 1

+  "v1: fetch-letter-sequence support."

+  :type :system

+  :post-loadable t)

+

+#+(version= 8 0)

+(sys:defpatch "imap" 1

+  "v1: fetch-letter-sequence support."

+  :type :system

+  :post-loadable t)

+

+#+(version= 8 1)

+(sys:defpatch "imap" 1

+  "v1: Add ssl/tls support for both imap/pop connections."

+  :type :system

+  :post-loadable t)

 ;; Description:

 ;;- This code in this file obeys the Lisp Coding Standard found in

@@ -35,7 +35,6 @@ v3: add mime structure parsing support."

 ;; merchantability or fitness for a particular purpose.  See the GNU

 ;; Lesser General Public License for more details.

 ;;

-;; $Id: mime-api.cl,v 1.11 2008/11/20 21:30:12 layer Exp $

 (defpackage :net.post-office

   (:use #:lisp #:excl)

@@ -14,7 +14,6 @@

 ;; merchantability or fitness for a particular purpose.  See the GNU

 ;; Lesser General Public License for more details.

 ;;

-;; $Id: mime-parse.cl,v 1.8 2008/05/21 21:01:56 layer Exp $

 (defpackage :net.post-office

   (:use #:lisp #:excl)

@@ -14,7 +14,6 @@

 ;; merchantability or fitness for a particular purpose.  See the GNU

 ;; Lesser General Public License for more details.

 ;;

-;; $Id: mime-transfer-encoding.cl,v 1.14 2007/08/02 18:14:31 layer Exp $

 (defpackage :net.post-office

   (:use #:lisp #:excl)

@@ -1,20 +1,16 @@

+;; copyright (c) 1999-2002 Franz Inc, Berkeley, CA - All rights reserved.

 ;; copyright (c) 2002-2016 Franz Inc, Oakland, CA - All rights reserved.

 ;;

-;; The software, data and information contained herein are proprietary

-;; to, and comprise valuable trade secrets of, Franz, Inc.  They are

-;; given in confidence by Franz, Inc. pursuant to a written license

-;; agreement, and may be stored and used only in accordance with the terms

-;; of such license.

+;; This code is free software; you can redistribute it and/or

+;; modify it under the terms of the version 2.1 of

+;; the GNU Lesser General Public License as published by 

+;; the Free Software Foundation, as clarified by the AllegroServe

+;; prequel found in license-allegroserve.txt.

 ;;

-;; Restricted Rights Legend

-;; ------------------------

-;; Use, duplication, and disclosure of the software, data and information

-;; contained herein by any agency, department or entity of the U.S.

-;; Government are subject to restrictions of Restricted Rights for

-;; Commercial Software developed at private expense as specified in

-;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.

-;;

-;; $Id: t-imap.cl,v 1.9 2007/04/17 22:01:42 layer Exp $

+;; This code 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.

 ;; imap testing

 ;; requires smtp module too