From: ueno <ueno>
Date: Sat, 18 Nov 2000 20:08:30 +0000 (+0000)
Subject: Rearrange header.
X-Git-Tag: flim-1_14_0-pre1~16
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=d636b504b66ac4e69339ff1a6c261acfdf359b12

Rearrange header.
---

diff --git a/qmtp.el b/qmtp.el
index bbb933b..459cd7f 100644
--- a/qmtp.el
+++ b/qmtp.el
@@ -1,6 +1,6 @@
 ;;; qmtp.el --- basic functions to send mail with QMTP server
 
-;; Copyright (C) 2000 Daiki Ueno
+;; Copyright (C) 2000 Free Software Foundation, Inc.
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
 ;; Keywords: QMTP, qmail
diff --git a/sasl-cram.el b/sasl-cram.el
index a9db4a6..25d1082 100644
--- a/sasl-cram.el
+++ b/sasl-cram.el
@@ -1,9 +1,9 @@
 ;;; sasl-cram.el --- CRAM-MD5 module for the SASL client framework
 
-;; Copyright (C) 2000 Daiki Ueno
+;; Copyright (C) 2000 Free Software Foundation, Inc.
 
-;; Author: Kenichi OKADA <okada@opaopa.org>
-;;	Daiki Ueno <ueno@unixuser.org>
+;; Author: Daiki Ueno <ueno@unixuser.org>
+;;	Kenichi OKADA <okada@opaopa.org>
 ;; Keywords: SASL, CRAM-MD5
 
 ;; This file is part of FLIM (Faithful Library about Internet Message).
diff --git a/sasl-digest.el b/sasl-digest.el
index 87df5db..a1b08b1 100644
--- a/sasl-digest.el
+++ b/sasl-digest.el
@@ -1,9 +1,9 @@
 ;;; sasl-digest.el --- DIGEST-MD5 module for the SASL client framework
 
-;; Copyright (C) 2000 Daiki Ueno
+;; Copyright (C) 2000 Free Software Foundation, Inc.
 
-;; Author: Kenichi OKADA <okada@opaopa.org>
-;;	Daiki Ueno <ueno@unixuser.org>
+;; Author: Daiki Ueno <ueno@unixuser.org>
+;;	Kenichi OKADA <okada@opaopa.org>
 ;; Keywords: SASL, DIGEST-MD5
 
 ;; This file is part of FLIM (Faithful Library about Internet Message).
diff --git a/sasl.el b/sasl.el
index 86187c9..729e048 100644
--- a/sasl.el
+++ b/sasl.el
@@ -1,6 +1,6 @@
 ;;; sasl.el --- SASL client framework
 
-;; Copyright (C) 2000 Daiki Ueno
+;; Copyright (C) 2000 Free Software Foundation, Inc.
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
 ;; Keywords: SASL
@@ -235,13 +235,13 @@ It contain at least 64 bits of entropy."
     sasl-login-response-2))
 
 (defun sasl-login-response-1 (client step)
-  (unless (string-match "^user ?name." (sasl-step-data step)) ;; XXX
-    (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
+;;;  (unless (string-match "^Username:" (sasl-step-data step))
+;;;    (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
   (sasl-client-name client))
 
 (defun sasl-login-response-2 (client step)
-  (unless (string-match "^password." (sasl-step-data step))  ;; XXX
-    (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
+;;;  (unless (string-match "^Password:" (sasl-step-data step))
+;;;    (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
   (sasl-read-passphrase
    (format "LOGIN passphrase for %s: " (sasl-client-name client))))