ユーザー名をドメインに追加するGnus認証

GnusがIMAPドメインに追加するユーザー名を入力するようfoo@bar.comに求めるGnusの問題を解決しようとしています。つまり、Gnusがプロンプトに入力されたユーザー名をに入力できないようにしますfoo@bar.com@mail.bar.com。

オンラインで読んだすべてのガイドでは、ログイン資格情報を設定するために次のようなものを指定しています。

〜/ .authinfoに次のような行を配置します

machine imap.gmail.com login your-name@gmail.com password your-password port 993

その後、次のような文字列を追加しました。

machine mail.foo.com login me@foo.com port 993

これは私に良い振る舞いを与えます（パスワードのみを要求します）が、それでもマシン名の前にユーザー名全体を追加します。さらに悪いことに、何かを変更してログインを繰り返しようとすると、エラーが発生しますWrong type argument: wholenump, nil。

私のgnus.elファイルには、IMAP用に次のものがあります。

; IMAP
(setq gnus-select-method
      '(nnimap "mymail"
               (nnimap-address "mail.bar.com")
               (nnimap-server-port 993)
               (nnimap-stream ssl)))

プロンプトはソース（nnimap.el）にハードコードされています：

(defun nnimap-credentials (address ports user)
  (let* ((auth-source-creation-prompts
          '((user  . "IMAP user at %h: ")
            (secret . "IMAP password for %u@%h: ")))
         (found (nth 0 (auth-source-search :max 1
                                           :host address
                                           :port ports
                                           :user user
                                           :require '(:user :secret)
                                           :create t))))
    (if found
        (list (plist-get found :user)
          (let ((secret (plist-get found :secret)))
        (if (functionp secret)
            (funcall secret)
          secret))
          (plist-get found :save-function))
      nil)))

したがって、これを変更する唯一の方法は、関数を再定義し、プロンプトをに変更することだけのようです"IMAP password for %u: "。