[Mew-dist 13661] mew-pop-auth (Re: b47)

[Chifumi Hayashi ( 林 千史 )]

林です。

On Thu, 13 Jul 2000 22:08:17 +0900,
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> b47 をリリースします。

> - PASS/USER が使えます

(setq mew-config-alist
      '(("foo"
	 ("user" . "chifumi")
	 ...
	 ("pop-server" . "localhost")
	 ("pop-size" . 0)
	 ("pop-auth" . 'pass)
	 ...

などと指定すれば良いのかと思ったのですが、「'pass」でも「"pass"」でも
「"'pass"」でも、「POP password:」をきかれずに「APOP password:」をきか
れてしまいます。

(defun mew-pop-command-pswd (pro pnm)
  (let ((auth (mew-pop-get-auth pnm)))
    (cond
     ((or (eq auth 'pass) (eq auth 'user))
      (mew-pop-set-status pnm "user")
      (mew-pop-command-user pro pnm))
     (t
      (mew-pop-set-status pnm "apop")
      (mew-pop-command-apop pro pnm)))))

の「(let ...」を

  (let ((auth (mew-pop-get-auth pnm)) (auth-a 'apop) (auth-p 'pass))
    (message "auth=%s, aoth-a=%s, auth-p=%s" auth auth-a auth-p) (sit-for 10)

として見たりしたのですが、「"pass"」の場合に表示上は「pass」で一致する
もののAPOP 扱いされてしまいますし、「'pass」は「(quote pass)」、
「"'pass"」は「'pass」と表示上も一致しません。

どのように指定するのが正しいのでしょう?

また、サーバ側が apop 対応していないので apop で読みに行った時にエラー
を期待していたのですが、「No new message」と表示されてしまうのは、しか
たがないのでしょうか?

# そもそも、local mail spool のメールを読むのに pop を使わずには
# 読めなくなってしまったのでしょうか?
-- 
 林　千史  chifumi at example.com