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

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 
-- 
[email protected]