From: ichikawa <ichikawa>
Date: Mon, 21 Dec 1998 08:31:05 +0000 (+0000)
Subject: lisp/pop3-fma.el (pop3-fma-movemail): Work with movemail.exe APOP extension.
X-Git-Tag: pgnus-ichikawa-199812211900~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bf44b8521669e4ba30de3483591df1ee26f6adb6;p=elisp%2Fgnus.git-

lisp/pop3-fma.el (pop3-fma-movemail): Work with movemail.exe APOP extension.
---

diff --git a/ChangeLog b/ChangeLog
index d93ef4a..89f31c4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-12-21  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/pop3-fma.el (pop3-fma-movemail): Work with movemail.exe
+	with APOP extention.
+
 1998-12-18  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* lisp/gnus-start.el (gnus-read-newsrc-el-file): Bug (referring to
diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 293efe6..aadf2f8 100644
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -3,7 +3,7 @@
 ;;                                                           Yasuo Okabe
 ;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
 ;;         Yasuo OKABE <okabe@kuis.kyoto-u.ac.jp>
-;; Version: 1.16
+;; Version: 1.17
 ;; Keywords: mail , gnus , pop3
 ;;
 ;; SPECIAL THANKS
@@ -92,7 +92,8 @@
 ;;  "Goodbye Game"		; 1.12
 ;;  "Love is Gamble"		; 1.13
 ;;  "Lonely"			; 1.14
-  "Feel the wind"		; 1.16
+;;  "Feel the wind"		; 1.16
+  "Sadness like snow"		; 1.17
   )
 (defconst pop3-fma-version (format "Multiple POP3 account utiliy for Gnus v%s - \"%s\""
 				       pop3-fma-version-number
@@ -211,8 +212,8 @@ If there is any problem , please set this variable to nil(default).
 		  (substring inbox (match-end (string-match "^po:" inbox))
 			     (- (match-end (string-match "^.*@" inbox)) 1)))))
 	      (pop3-authentication-scheme
-	       (nth 1 (assoc inbox pop3-fma-spool-file-alist)))
-	      (pop3-fma-movemail-type (pop3-fma-get-movemail-type inbox)))
+	       (nth 1 (assoc inbox pop3-fma-spool-file-alist))))
+;;	      (pop3-fma-movemail-type (pop3-fma-get-movemail-type inbox)))
 	  (if (eq pop3-authentication-scheme 'pass)
 	      (message "Checking new mail user %s at %s using USER/PASS ..." pop3-maildrop pop3-mailhost)
 	    (message "Checking new mail user %s at %s using APOP ..." pop3-maildrop pop3-mailhost))
@@ -223,13 +224,22 @@ If there is any problem , please set this variable to nil(default).
 		(if (and (not (memq pop3-password pop3-fma-commandline-arguments))
 			 (not (memq (concat "po:" pop3-maildrop) pop3-fma-commandline-arguments)))
 		    (progn
-		      (setq pop3-fma-commandline-arguments
-			    (append
-			     pop3-fma-movemail-arguments
-				    (list
-				     (concat "po:" pop3-maildrop)
-				     crashbox
-				     pop3-password)))))
+		      (if (eq pop3-fma-authentication-scheme 'apop)
+			  (setq pop3-fma-commandline-arguments
+				(append
+				 pop3-fma-movemail-arguments
+				 (list
+				  "-A"
+				  (concat "po:" pop3-maildrop)
+				  crashbox
+				  pop3-password)))
+			(setq pop3-fma-commandline-arguments
+			      (append
+			       pop3-fma-movemail-arguments
+			       (list
+				(concat "po:" pop3-maildrop)
+				crashbox
+				pop3-password))))))
 		(if (not (get-buffer movemail-output-buffer))
 		    (get-buffer-create movemail-output-buffer))
 		(set-buffer movemail-output-buffer)