🚀 go-pugleaf

Windows98
Meadow 1.06b
Nana-gnus 6.13.4b5 (based on Gnus 5.6.45;for SEMI 1.13,FLIM1.13)
の環境で、

M-x gnus をおこなうと

Password for po:auau:.......
movemail: -ERR Passowrd supplied for "auau" is incorect (1 return).
Continue? (yes or no)
と聞いてきます。
pop server の Password は間違いなく入れているのですが、毎回言われる始末で
どこが悪いのかよくわかりません。
また、その後すぐに Gnus を終わらせると
*scratch* バッファに
nnml:If you want to create a file, visit that file with C-x C-f,
nnml:
の様なことが書かれています。
どこを修正すればよいかご教授願えますでしょうか？

私の、.gnus をつけておきます。

;;; Gnus Configuration -*- emacs-lisp -*-
;;; by NAOHIRO Koriyama <kory@ba2.so-net.ne.jp>

(setq mail-host-address "ausys003") ;;; PLEASE MODIFY
(setq user-mail-address "yama@auau.sony.co.jp") ;;; PLEASE MODIFY
(setq user-full-name "Takahiro Yamaguchi") ;;; PLEASE MODIFY

(setq gnus-select-method '(nntp "news.sngw.sony.co.jp")) ;;; PLEASE MODIFY
(setq gnus-local-domain "auau.sony.co.jp") ;;; PLEASE MODIFY
(setq message-user-organization "Sony Corp") ;;; PLEASE MODIFY
;(setq gnus-use-trees t)
(setq gnus-strict-mime nil)
;(setq gnus-group-use-permanent-levels 3)
(setq gnus-outgoing-message-group "nnml:archive") ;; GCC


;;;  for score
;(setq gnus-home-score-file
;	  'gnus-hierarchial-home-score-file)
;(setq gnus-home-score-file
;	  "all.SCORE")

;; mail with nn
(setenv "MAILHOST" "ausys003") ;;; PLEASE MODIFY
;(setenv "MOVEMAIL" "-pk")
(setenv "MOVEMAIL" "-ku")

(setq gnus-secondary-select-methods
	  '((nnml "")))
(setq nnmail-spool-file "po:private") ;;; PLEASE MODIFY 

(setq nnmail-movemail-program 'nnmail-pop3-movemail) ;;; fetch with pop3.el
(setq pop3-password-required t)
;(setq pop3-password "*****")
(setq nnmail-movemail-program "movemail.exe") ;;; fetch with movemail.exe
(setq nnmail-pop-password-required t)
;(setq nnmail-pop--password "*********")

;(setq nnmail-treat-duplicates 'delete)

(setq nnmail-split-methods 'nnmail-split-fancy ;;; PLEASE MODIFY
      nnmail-split-fancy
      '(| ("from" mail (| ("subject" "warn.*" "mail.warning")
			  "mail.misc"))
	  (& (any "system@nssys\\.co\\.jp" "mail.system")
	     ;; Other mailing lists...
	     (any "mew-dist@is\\.aist-nara\\.ac\\.jp" "mail.mew-dist")
	     (any "mew-dist@mew\\.org" "mail.mew-dist")
	     (any "meadow-develop@meadow\\.scphys\\.kyoto-u\\.ac\\.jp" "mail.meadow-develop")
;	     (any "mule\(\\w*\\)@etl\\.go\\.jp" "mail.mule\\1")
	     (any "mule-win32@etl\\.go\\.jp" "mail.mule-win32")
	     (any "mule-jp@etl\\.go\\.jp" "mail.mule")
	     (any "mule@etl\\.go\\.jp" "mail.mule")
	     ;; People...
	     (| (any "kory@ba2\\.so-net\\.or\\.jp" "mail.mine")
		(any "koriyama@.*nssys\\.co\\.jp" "mail.mine")
		(any ".*nssys\\.co\\.jp" "mail.nss")))
	  ;; Unmatched mail goes to the catch all group.
	  "mail.misc"))

(setq nnmail-expiry-wait-function ;;; PLEASE MODIFY
      (lambda (group)
	(cond ((string= group "mail.system")
	       'never)
	      ((string= group "mail.mine")
	       'never)
	      ((string= group "mail.nss")
	       'never)
	      ((string= group "mail.misc")
	       31)
	      ((string= group "mail.warning")
	       14)
	      (t
	       365))))


;;; send mail with smtpmail (for Gnus)
;(setq send-mail-function 'smtpmail-send-it)
;(setq message-send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'message-send-mail-with-smtp)
;(setq message-mime-send-mail-function 'smtpmail-send-it)
;(setq smtpmail-default-smtp-server "mail.gonbei.com") ;;; PLEASE MODIFY
;(setq smtpmail-local-domain "gonbei.com") ;;; PLEASE MODIFY
;(setq mail-use-rfc822 t)
;(setq smtpmail-debug-info t)
;(require 'smtpmail)
;;(setq smtpmail-code-conv-from nil)

;;; send mail with smtp (for Semi-gnus 6.0.3 or later)
(setq send-mail-function 'message-send-mail-with-smtp)
(setq message-send-mail-function 'message-send-mail-with-smtp)
(setq message-mime-send-mail-function 'message-send-mail-with-smtp)
(setq smtp-default-server "ausys003") ;;; PLEASE MODIFY
(setq smtp-local-domain "auau.sony.co.jp") ;;; PLEASE MODIFY
(setq mail-use-rfc822 t)
(setq smtp-debug-info t)


;;; HOOKS
(add-hook 'message-setup-hook
	  (lambda ()
	    ;(setq fill-column 60)
	    (turn-on-auto-fill)
	    ;;(local-set-key "\C-c\C-i" 'insert-signature-eref) ;; c-sig
	    ;;(local-set-key "\C-c\C-y" 'xcite-yank-cur-msg) ;; x-cite
	    ))

;;; agent (for Quassia Gnus, Semi-gnus)
;(gnus-agentize)
;(gnus-agentize-toggle-plugged nil)