[mew-dist 18683] [Q]FAQ popサーバーにメールを残すには？

[Atushi Shinmura]

新村です。

Mew 2.0.51 on XEmacs 21.4.3 RedHat 7.0base MLD-5 です。

標記のFAQ(mew.org)の指示に従い、またInfoの記述により、popサーバー上に
メールを残すよう設定しましたが、popサーバー上から消去されてしまいます。

関連すると思われる .emacs , .mew.el です。
---.emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew                                                               ;;
;;   メールリーダー Mew                                              ;;
;;   M-x mew で起動します                                            ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(autoload 'mew "mew" nil t)
(autoload 'mew-read "mew" nil t)
(autoload 'mew-send "mew" nil t)
;; XEmacs 版 Mew のアイコンのありか
(setq mew-icon-directory "/usr/local/lib/xemacs/xemacs-packages/etc/mew")
(cond
 ((string-match "XEmacs" emacs-version)
  (setq file-coding-system `iso-2022-jp)
  (add-menu-item `("Apps") "Read Mail(Mew)" `mew t "Read Mail (VM)...")
  (add-menu-item `("Apps") "Send Mail (Mew)" `mew-send t "Read Mail
(VM)...")
  (delete-menu-item `("Apps" "Read Mail (VM)..."))
  (delete-menu-item `("Apps" "Read Mail (MH)..."))
  (delete-menu-item `("Apps" "Send mail..."))
  (setq toolbar-mail-reader `Mew)
  (setq toolbar-mail-commands-alist
 (cons `(Mew . mew) toolbar-mail-commands-alist))
))
---end of .emacs

---.mew.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mewの設定ファイル 2001.9.1 mew 2.0.5.1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 返信時の引用フォーマットの指定
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")

;; 起動時にメールを取りにいかないようにする
(setq mew-auto-get nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;サーバー上にメールを残す 該当の部分です。
(setq mew-pop-delete nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; From ヘッダの "" で囲まれた文字も MIME デコードする
(setq mew-decode-quoted t)

;;Draftモードでハイライト表示
(setq mew-use-highlight-mouse-line t)

;; スレッド表示を行う
(setq mew-use-fancy-thread t)

;; 送信メールを格納
(setq mew-fcc "+outbox")

;; 自分に Bcc をつけない
(setq mew-mail-address-list
    '("GGB03631 at example.com"))
(setq mew-mail-address-list
    '("atushi.shinmura at example.com"))

;; Reply-To ヘッダがある場合そのアドレスにだけ返信
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-replyto-cc-list nil)

;; この 2 行は通常設定する必要はありませんが、メールアドレスに
;; ホスト名が入って欲しくない場合などに指定します。
(setq mew-from "GGB03631 at example.com")
(setq mew-mail-domain "nifty.ne.jp")

;; 整理整頓
(setq mew-refile-guess-alist
  '(("Reply-To:"
      ("mld-ml@" . "+mld-ml")
    )
    ("Subject:"
	  ("mew-dist" . "+mew")
	)
    ("From:"

      ("***.ne.jp" . "+friends");;ちまるさん（旧）
    )
))

;; xcite.elによる引用
(autoload 'xcite "xcite" "Exciting cite" t)
(autoload 'xcite-yank-cur-msg "xcite" "Exciting cite" t)
	      (setq mew-draft-mode-hook	; mewの場合
		    '(lambda ()
		       (define-key mew-draft-mode-map "\C-c\C-y"
			 'xcite-yank-cur-msg))
		    mew-init-hook
		    '(lambda ()
		       (define-key mew-summary-mode-map "A"
			 '(lambda () (interactive)
			    (mew-summary-reply)
			    (xcite-yank-cur-msg)))))

;;署名ファイルです
(setq mew-signature-file "~/.signature-mew")

;;編集中にxfaceを表示する
;(setq x-face-default-xbm-file "my.xbm")
;(add-hook 'mew-draft-mode-hook 'x-face-insert)
;(add-hook 'mew-make-massage-hook 'x-face-turn-off)
---end of .mew.el

上記の記述なら、サーバー上にメールが残されても良いと思うのですが、「全
部」消去されてしまいます。

また、これは現状 FAQ ではないですけど、Draft Mode で Xface を表示させ
たくて、Info を元に .mew.el の最後に、上記の記述をし、該当のファイルを
用意しましたが、X-Face: は作成されますが、画像の表示はされません。便乗
ですが、お気づきの点がありましたら、よろしくお願い致します。
---Atsushi Shinmura