[Mew-dist 2345] Re: 未読管理について質問

[Takaharu Omi]

始めまして、近江＠東北大 と申します。

∬ Akihisa Konno <minnie at example.com> さんが
∬ [Mew-dist 2323] Re: 未読管理について質問 という題目で
∬ Wed, 01 Oct 1997 15:01:09 +0900 ごろに書きました。

> From: 原田　卓也 <CEC00995 at example.com>
> > 各フォルダにある .mh_sequences ファイルによってこのあたりの情報
> > を管理しているらしい、という程度のことしか分からないのですが、
> > このうち、いくらメールを読んでも
> > ------------------------------------------------------
> > cur: 556
> > unseen: 557-612		← この部分がなくなってくれない。
> > ------------------------------------------------------

mew + im になってから mh-biff が動作しなくなってしまい、ずっと 
mew-1.70 を使っていたのですが、

>   こういう仕様なんだそうです。でも対処法はありまして、次のようなフック
> を設定するとunseenが消えてくれます。~/.emacs の中にでも書いておくとよ
> いでしょう。
>   私は実際にこの設定で使っています。
> 
> ;; mh-biffを使うために、Unseen-Sequenceに対応する。
> (add-hook 'mew-message-hook
>           (function
> 	   (lambda ()
> 	     (and fld msg
> 		  (mh-biff-delete-unseen-sequence fld msg)))))

とのことなので、私も早速 mew-1.92b1 と mh-biff.0.96.3 の組合わせで使っ
てみました。すると、unseen は消えてくれるのですが、消えてしまうだけで
メールが来ても増えてくれません。ちなみにメールは imstore で自動振り分
けしています。この他に何か設定するところがあるのでしょうか？

実際に mew-1.9* + mh-biff を使っている方、.emacs の書き方等を教えてく
ださい。お願いします。

以下に私の .emacs の関係ありそうなところを載せておきます。
-------------- next part --------------
;;#############################################################################
;;   Setup Mew

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
;;Mail Backup
(setq mew-fcc "Backup")
;;補完したいドメインのリスト
(setq mew-mail-domain-list
      '("nishizeki.ecei.tohoku.ac.jp" "ec.ecei.ac.jp"))
;;Reply-To Header の不指定
(setq mew-reply-to nil)
;;Mew終了時のマークへの対処
(setq mew-init-hook
      (function
       (lambda ()
	 (add-hook 'kill-emacs-hook (function mew-mark-clean-up-all)))))
;;メールを書くとき自動改行
(setq mew-draft-mode-hook
      (function (lambda () (auto-fill-mode 1))))
;; mh-biffを使うために、Unseen-Sequenceに対応する。
(add-hook 'mew-message-hook
          (function
           (lambda ()
             (and fld msg
                  (mh-biff-delete-unseen-sequence fld msg)))))
;;EUCファイルからJISファイルへの自動変換
(add-hook 'mew-draft-mode-hook
          '(lambda ()
             (make-local-variable 'mew-mule-charset-local)
             (setq mew-mule-charset-local *euc-japan*)))
;;Fromの設定
(setq mew-from "Takaharu Omi  <taka at example.com>")
;;引用のしかた
(setq mew-cite-fields '("From:" "Subject:" "Date:"))
(setq mew-cite-format "\n\n\n∬ %s さんが\n∬ %s という題目で\n∬ %s ごろに書きました。\n\n")
;;来たメールの移動先を明示する
(setq mew-refile-guess-alist
      '(("To:"
	 ("mew-dist at example.com" . "+mew")
         )
        )
      )

;; XEmacs
(cond
 ((string-match "XEmacs" emacs-version)
  (setq zmacs-regions nil)
  (setq url-be-asynchronous t)
  (set-default 'buffer-file-coding-system 'iso-2022-jp)
  (setq keyboard-coding-system    'iso-2022-jp)
  (setq terminal-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))
  )
 )


;;#############################################################################
;;   Setup MH Biff

(autoload 'mh-biff-scan "mh-biff" "MH biff" t)
(autoload 'mh-biff      "mh-biff" "MH biff" t)
(setq mh-biff-bin-path "/opt/mh/bin")
(setq mh-biff-lib-path "/opt/mh/lib")
(setq mh-biff-folders-list '("inbox" "ML-Mew"))
(setq mh-biff-mode-line-folders-list '("inbox" "ML-Mew"))
(setq mh-biff-recursive-folders-flag nil)
(setq mh-biff-interval-time 10)
(setq mh-biff-scan-message-limit -1)
(setq mh-biff-message "\\f")
(setq mh-biff-folder-message "[\\n\\o]")
(setq mh-biff-frame-up-flag nil)
(setq mh-biff-first-frame-up-flag nil)
(setq mh-biff-auto-scan-display-time-flag nil)
(setq mh-biff-folder-name-aliases '(("+inbox" . "+In")
				  ("+ML-Mew" . "+Mew")))
(mh-biff)