From b13e482c98c08abe6d7804475688606e16ec8d69 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 17 Nov 2000 09:19:21 +0000 Subject: [PATCH] Rearrange header. --- qmtp.el | 2 +- sasl-cram.el | 6 +++--- sasl-digest.el | 6 +++--- sasl.el | 10 +++++----- 4 files changed, 12 insertions(+), 12 deletions(-) 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 ;; 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 -;; Daiki Ueno +;; Author: Daiki Ueno +;; Kenichi OKADA ;; 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 -;; Daiki Ueno +;; Author: Daiki Ueno +;; Kenichi OKADA ;; 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 ;; 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)))) -- 1.7.10.4