From bf44b8521669e4ba30de3483591df1ee26f6adb6 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Mon, 21 Dec 1998 08:31:05 +0000 Subject: [PATCH] lisp/pop3-fma.el (pop3-fma-movemail): Work with movemail.exe APOP extension. --- ChangeLog | 5 +++++ lisp/pop3-fma.el | 32 +++++++++++++++++++++----------- 2 files changed, 26 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index d93ef4a..89f31c4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-12-21 Tatsuya Ichikawa + + * lisp/pop3-fma.el (pop3-fma-movemail): Work with movemail.exe + with APOP extention. + 1998-12-18 Katsumi Yamaoka * 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 ;; Yasuo OKABE -;; 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) -- 1.7.10.4