[mew-win32 4380] .mew の関連付け

[Tsutomu OKADA]

岡田と申します。

WDS で検索した .mew をダブルクリックすると、そのメールが Mew の
Summary モードに表示されるようにしたいのですが、あまり Emacs に詳しくな
いので、アドバイスいただけないでしょうか？

手順としては、.mew を gnuclientw.exe に関連付け（アクション open, アプ
リケーション gnuclientw.exe "%1"）し、.mew.el で

(setq auto-mode-alist (cons '("\\.mew\\'" . mew-assoc) auto-mode-alist))
(defun mew-assoc ()
  (let ((fld (mew-path-to-folder
	      (directory-file-name (file-name-directory (buffer-file-name)))))
	(msg (file-name-sans-extension (buffer-name))))
    (kill-buffer (current-buffer))
    (mew-summary-visit-folder fld)
    (goto-char (point-min))
    (when (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
      (beginning-of-line)
      (mew-summary-display))))

としました。

.mew をダブルクリックすると該当メールが表示されるのですが、Summary モー
ドのカーソル位置が常にバッファの先頭になってしまいます。どのように修正
すればよいのでしょうか？

# GDS でも同じようにできると思いますが、キャッシュにしか残っていない
# .mew を開くときに、上記のような処理が可能かどうかは検証していません。

## WDS より GDS のほうが好みなのですが、GDS は添付ファイルの中身まで検
## 索してくれないので、仕方なく WDS を使っています。
-- 
Tsutomu.OKADA at example.com